Batya
|
 Posted: Mon Jun 07, 2010 16:41 Post subject: |
 |
|
| AVos002 wrote: | | Сейчас я на работе, но если договоримся по времени, могу быть дома. |
А чего договариваться? Покажи код файла "C:\Program Files\Total Commander\Plugins\tcwhelp_b10\DemoScripts\Proba.vbs", который дома. Завтра разберёмся.
| AVos002 wrote: | | З.Ы. Как тебе моя дописка в скрипте? |
Главное, чтобы тебя устраивало 
У меня в загашнике есть пару методов конвертации. Один похож на твой.
| Code: | 'Конвертация текста OEM-866 в Win-1251
Function Dos2Win(pDosString)
Dim i, lStr
If Len(pDosString) = 0 Then Exit Function
For i = 1 To Len(pDosString)
lStr = Asc(Mid(pDosString, i, 1))
If lStr >= 128 And lStr <= 175 Then
Dos2Win = Dos2Win & Chr(lStr + 64)
ElseIf lStr >= 224 And lStr <= 239 Then
Dos2Win = Dos2Win & Chr(lStr + 16)
ElseIf lStr = 240 Then
Dos2Win = Dos2Win & Chr(168)
ElseIf lStr = 241 Then
Dos2Win = Dos2Win & Chr(184)
ElseIf lStr = 255 Then
Dos2Win = Dos2Win & Chr(160)
Else
Dos2Win = Dos2Win & Chr(lStr)
End If
Next
End Function |
| Code: | Set FSO = CreateObject("Scripting.FilesystemObject")
MsgBox StrConv(FSO.OpenTextFile("dos.txt").ReadAll, "ibm866", "windows-1251")
Function StrConv(Text, SourceCharset, DestCharset)
With CreateObject("ADODB.Stream")
.Type = 2
.Mode = 3
.Open
.Charset = DestCharset
.WriteText Text
.Position = 0
.Charset = SourceCharset
StrConv = .ReadText
End With
End Function |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
