vb.net - 从句子或单词中提取阿拉伯字母

Question

我正在用 vb6 开发一个可以处理阿拉伯语文档的小程序，我想计算每个阿拉伯字母在文档中出现的次数

基本阿拉伯字符

أ إ آ ى ؤ ئ ء ب ت ة ث ج ح خ د ذ ر ز س ش ص ض ط ظ ع غ ف ق ك ل م ن ه

例句

البيت الكسز اللتيل الزجاج الست.‏</p>

我不懂阿拉伯语，甚至不知道如何阅读它。

如果 vb6 不起作用，我可以使用 vb.net

Answer 1

使用 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

Answer 2

最简单的方法是与所有阿拉伯字符的数组进行比较.. http://en.wikipedia.org/wiki/Arabic_alphabet