Set MyStream = CreateObject("ADODB. i am using windows platform and Code::block editor with mingw. store these tokens in array like stucture and do some string comparisons on it. using delimiters filter the tokens that need and ignore rest. Thanks for update, Wayne! 12:41 PM Anonymous said. - scan it line by line and then parse it into tokens. Here's the better way using the byte array mentioned above: Sub WriteUnicodeTextFile(ByRef Path As String, _ ByRef Value As String) Dim Buffer() As Byte Dim FileNum As Integer ' Convert string to an array of bytes, preserving unicode (2bytes per character) Buffer = Value FileNum = FreeFile Open Path For Binary As FileNum Put FileNum,, Buffer Close FileNum End Sub Wayne Phillips 12:37 PM Alex Dybenko said.
The StrConv method that Giorgio provides will work but includes much extra (unnecessary) overhead because you're essentially converting the VB unicode string (2 bytes per character) to a 4-byte per character string thus using much more memory and requiring extra processing. Note: These documents consist of Unicode text with HTML tags, and therefore can only be viewed properly with a Unicode-compliant. The glyph that CMD.COM displays for ALT+NUMPAD2 is actually Unicode codepoint U+263B 'BLACK SMILING FACE'. ALT codes are how DOS handles non-ASCII characters. The "put" statement converts strings to ANSI *unless* you pass the string as a byte array. ALT+NUMPAD2 is not the same thing as ASCII character 2, which is what your code is writing to file. 'Create the file in Unicode mode Set ts fso.CreateTextFile ('c:test.txt', Unicode:True) 'Write the contents ts.Write Contents 'Close it ts.Close End Sub Sub ExampleReadUnicodeTextfile () Dim fso As Object 'Scripting.FileSystemObject Dim ts As Object 'Scripting. Internally, all VB strings are in Unicode format anyway.
0 kommentar(er)
