从句子或单词中提取阿拉伯字母

Question

我正在用 vb6 开发一个小程序，该程序将与阿拉伯文文档一起使用，我想计算每个阿拉伯字母在文档中出现的次数

基本阿拉伯字符

ā ى ى ٤ ٦ ى ى ٤ ٦ ١ б З ٫ ٬ ٭ ٮ ى ى æ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ف ق ك փ ם ه

示例句子

ه ق ه ف ق ق ق ه .

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

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

Answer 1

使用VB.Net会容易得多。

• VB6 对 Unicode 有补丁支持。
• 在VB6中，您需要可能需要将您的电脑系统代码页更改为阿拉伯语才能阅读该文档。

---

编辑：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