tailieunhanh - Các hàm UNICODE thông dụng

Đổi chữ thường thành chữ hoa: Function UpperUniChar(Ch) As String ' Return the Uppercase for a given vowel or dd Dim Pos ' Position of character in Unicode vowel list ' Locate the character in list of Unicode vowels Pos = InStr(UVowels, Ch) If (Pos 67) Then UpperUniChar = Ch ' It's already uppercase - leave it alone ElseIf (Pos 0) Then ' It's a Lowercase Unicode Vowel - so get the corresponding Uppercase vowel in the list UpperUniChar = Mid(UVowels, Pos + 67, 1) Else ' It's just a normal ANSI character UpperUniChar = UCase(Ch) End If. | Các hàm UNICODE thông dụng Đổi chữ thường thành chữ hoa Function UpperUniChar Ch As String Return the Uppercase for a given vowel or dd Dim Pos Position of character in Unicode vowel list Locate the character in list of Unicode vowels Pos InStr UVowels Ch If Pos 67 Then UpperUniChar Ch It s already uppercase - leave it alone ElseIf Pos 0 Then It s a Lowercase Unicode Vowel - so get the corresponding Uppercase vowel in the list UpperUniChar Mid UVowels Pos 67 1 Else It s just a normal ANSI character UpperUniChar UCase Ch End If End Function Đọc Text UNICODE từ file Public Function ReadTextFile FileName As String Write a Unicode String to UTF-16LE Text file Remember to Project References Microsoft Scripting Runtime to support FileSystemObject TextStream Dim Fs As FileSystemObject Dim TS As TextStream Create a FileSystem Object Set Fs CreateObject Open TextStream for Input. TriStateTrue means Read Unicode UTF-16LE Set TS FileName ForReading False TristateTrue ReadTextFile Read the whole content of the text file in one stroke Close the Text Stream Set Fs Nothing Dispose FileSystem Object End Function Viết UNICODE text ra file Public Sub WriteTextFile FileName StrOutText Read a Unicode String from UTF-16LE Text file Remember to Project References Microsoft Scripting Runtime to support FileSystemObject TextStream Dim Fs As FileSystemObject Dim TS As TextStream Create a FileSystem Object Set Fs CreateObject Open TextStream for Output create file if necesssary TriStateTrue means Write Unicode UTF-16LE Set TS FileName ForWriting True TristateTrue StrOutText Write the whole StrOutText string in one stroke Close the Text .

TỪ KHÓA LIÊN QUAN
crossorigin="anonymous">
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.