0

アラビア語の文書で動作する vb6 の小さなプログラムを開発しています。各アラビア語の文字が文書に出現する回数を数えたいと考えています。

基本的なアラビア文字

ا أ إ آ ى ؤ ئ ء ب ت ة ث جح خ د ذ ر چ

例文

アレベイト アレックス アレステイル アレズジャジー アレステ. </p>

私はアラビア語を知らないし、読み方さえ知りません。

vb6 が機能しない場合は、vb.net を使用できます

4

2 に答える 2

2

VB.Net を使用する方がはるかに簡単です。

  • VB6 はUnicode を不完全にサポートしています。
  • VB6 では、ドキュメントを読むことができるようにするには、PC システム コード ページをアラビア語に変更する必要があるでしょう。

編集: VB.Net のエア コード ソリューション。部分的にこの回答に基づいています。例外処理が必要です。

''# You may need a different character encoding here, this is UTF-8
Using sr As New IO.StreamReader("Test.txt", Text.Encoding.UTF8)
  Dim c As Char
  Dim dict As New Dictionary(Of String, Integer)

  Do Until sr.EndOfStream
   c = ChrW(sr.Read)

   If (dict.ContainsKey(c))
     dict(c)+=1
   Else
     dict(c) = 1
   End If
  Loop
End Using
于 2011-02-10T11:26:57.817 に答える
1

最も簡単な方法は、すべてのアラビア文字の配列と比較することです.. http://en.wikipedia.org/wiki/Arabic_alphabet

于 2011-08-16T15:40:33.423 に答える