A
al jones
I’m using textfieldparser to read a data file. which contains, for example:
Amondó Szegi Amondo Szegi
andré nossek André Nossek
© Characte Character
Note the vowels with diacriticals and the copyright symbol - it is dropping
these (and other similar) characters which fall outside ascii range
(apparently)
The code is simple and looks like:
Using MyReader As New TextFieldParser(Application.StartupPath &
"\designers.txt")
MyReader.TextFieldType = FileIO.FieldType.Delimited
MyReader.CommentTokens = New String() {"#"}
MyReader.Delimiters = New String() {vbTab}
MyReader.TrimWhiteSpace = True
Dim currentRow As String()
intElement = 0
While Not MyReader.EndOfData
Try
currentRow = MyReader.ReadFields()
If Microsoft.VisualBasic.Left(currentRow(0), 7) =
"UNKNOWN" Then
strUnknownDesigner = currentRow(1)
Continue While
End If
arDesigner(intElement, 0) = currentRow(0)
arDesigner(intElement, 1) = currentRow(1)
arDesignerCounter(intElement) = 0
intElement += 1
Catch ex As MalformedLineException
MsgBox("Designer Line " & ex.Message & "is not valid
and will be skipped.")
End Try
End While
End Using
I can’t see any reason in the documentation for it dropping copyright or
the French and German (etc…) vowels with accents.
Comments or suggestions anyone??
Thanks //al
Amondó Szegi Amondo Szegi
andré nossek André Nossek
© Characte Character
Note the vowels with diacriticals and the copyright symbol - it is dropping
these (and other similar) characters which fall outside ascii range
(apparently)
The code is simple and looks like:
Using MyReader As New TextFieldParser(Application.StartupPath &
"\designers.txt")
MyReader.TextFieldType = FileIO.FieldType.Delimited
MyReader.CommentTokens = New String() {"#"}
MyReader.Delimiters = New String() {vbTab}
MyReader.TrimWhiteSpace = True
Dim currentRow As String()
intElement = 0
While Not MyReader.EndOfData
Try
currentRow = MyReader.ReadFields()
If Microsoft.VisualBasic.Left(currentRow(0), 7) =
"UNKNOWN" Then
strUnknownDesigner = currentRow(1)
Continue While
End If
arDesigner(intElement, 0) = currentRow(0)
arDesigner(intElement, 1) = currentRow(1)
arDesignerCounter(intElement) = 0
intElement += 1
Catch ex As MalformedLineException
MsgBox("Designer Line " & ex.Message & "is not valid
and will be skipped.")
End Try
End While
End Using
I can’t see any reason in the documentation for it dropping copyright or
the French and German (etc…) vowels with accents.
Comments or suggestions anyone??
Thanks //al