|
|
|
Чтение из файла русского текста в DOS кодировке
|
|||
|---|---|---|---|
|
#18+
Считываю так Set fs = CreateObject("Scripting.FileSystemObject") Set fclients = fs.OpenTextFile("D:\file1.txt", ForReading, 0) Do While fclients.AtEndOfStream <> True Str = fclients.ReadLine STTemp = FStrout(Str, 1) Не понимает досовскую кодировку. Здесь на форуме нашел функцию: Function ANSI2OEM(ByVal sAnsi As String) As String Dim sOem As String sOem = String(Len(sAnsi), Chr(0)) CharToOem sAnsi, sOem ANSI2OEM = sOem End Function Она не преобразует. Как прочесть? Помогите плз. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.05.2004, 09:33 |
|
||
|
Чтение из файла русского текста в DOS кодировке
|
|||
|---|---|---|---|
|
#18+
в 98 и старше будет работать Function convertFromOEM(tString As String) As String Dim retStr As String retStr = VBA.String$(VBA.Len(tString), 0) Dim hResult As Long hResult = OemToCharA(tString, retStr) convertFromOEM = dhTrimNull(retStr) End Function где OemToCharA это Private Declare Function OemToCharA Lib "user32" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long dhTrimNull - функция, отсекающая хвостовые vbNullChar Для Вин НТ и далее ответ здесь /topic/87994&hl= ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.05.2004, 10:25 |
|
||
|
|
start [/forum/topic.php?fid=45&fpage=1624&tid=1674361]: |
0ms |
get settings: |
8ms |
get forum list: |
16ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
45ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
34ms |
get tp. blocked users: |
2ms |
| others: | 238ms |
| total: | 358ms |
| 0 / 0 |
