vb.net vb6 arabic find-occurrences

vb.net - extraer letra arábiga de una oración o palabra



vb6 arabic (2)

La manera más fácil sería comparar con una matriz de caracteres árabes .. http://en.wikipedia.org/wiki/Arabic_alphabet

Estoy desarrollando un pequeño programa en vb6 que funcionará con un documento en árabe. Quiero contar cuántas veces aparece cada letra en árabe en el documento.

personajes árabes básicos

ر ر ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب ب

oración de ejemplo

البيت الكسز اللتيل الزجاج الست.

no sé árabe o incluso sé cómo leerlo.

si vb6 no funciona, puedo usar vb.net


Será mucho más fácil usar VB.Net.

  • VB6 tiene compatibilidad parche para Unicode.
  • En VB6, probablemente necesite cambiar la página de códigos del sistema de su PC al árabe para poder leer el documento.

EDITAR : Solución de código de aire en VB.Net, basada en parte en esta respuesta . Necesita manejo de excepciones.

''''# 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