Чтение текстовых файлов на Siemens S55

LORIC · 12.05.04

На это модели можно читать текстовые файлы, но русские буквы вопринимаются как вопросительными знаками "??? ????? ????? ? ?????"
Каким образом можно эту беду ипсправить? Возможно он не воспринимает кодировку, тогда какую он читает?

shuffle · 13.05.04

Ты наверное просматривал файл записанный в кодировке Windows-1251, а телефон понимает Unicode. Подложи текстовый файл в кодировке Unicode и все будет OK.

LORIC · 13.05.04

shuffle скорее да, но где взять конвертор с Win на Uni.

Kuzmich · 13.05.04

Far 1.70. Если не ошибаюсь, то Unicode там даже из Addon ставить не надо - идет родной.

LORIC · 13.05.04

Kuzmich он читает, а разве он конвертит текст? Тотал командер тоже читает Uni код

UncleSam · 13.05.04

Конвертит в юникод обычный виндовский блокнот, но только в w2k и XP. Делаешь "сохранить как" и выбираешь формат. Там 3 вида уникода, ХЗ, какой из них Семёну понравится

Kuzmich · 13.05.04

LORIC
Создаешь пустой файл, выбираешь кодировку Unicode (по F9), вставляешь текст, сохраняешь

Bor · 13.05.04

вот бейсик скрипт

LF=Chr(10):CRLF=Chr(13) & Chr(10)
set RusWinHEX = CreateObject("Scripting.Dictionary")
RusWinHEX.CompareMode=0
for i=192 to 239
RusWinHEX.add chr(i),chr(208) & chr(i-48)
next
for i=240 to 255
RusWinHEX.add chr(i),chr(209) & chr(i-112)
next
RusWinHEX.add "Ё",chr(208) & chr(149)
RusWinHEX.add "ё",chr(208) & chr(181)
RusWinHEX.Item("Ъ")=chr(208) & chr(172)
RusWinHEX.Item("Ь")=chr(208) & chr(170)
RusWinHEX.Item("ъ")=chr(209) & chr(140)
RusWinHEX.Item("ь")=chr(209) & chr(138)
RusWinHEX.Item(chr(169))=chr(194) & chr(169)
RusWinHEX.Item(chr(174))=chr(194) & chr(174)
RusWinHEX.Item(chr(153))="TM"
RusWinHEX.Item(chr(10))=chr(0) & chr(38) & chr(3)

bytes=1030
numbs=0
indexn=0
set fso=CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
if objArgs.count=0 then
outnamefst=InputBox("Converter text to WMLC (WAP Markup Language) ver. 1.2a © CheSer software 2002" & CRLF & CRLF & "Эта программа позволяет из текстовых файлов создавать файлы WMLC для просмотра текста в WAP-броузере сотовых телефонов Siemens серии 45." & CRLF & "В коммандной строке введите: ""start txt2wmlc.vbs имяфайла.txt""" & CRLF & "Результатом работы будет один или несколько файлов с расширением wmlc которые нужно будет поместить в память телефона. Просматривать эти файлы можно через пункт меню Card-Explorer вашего телефона, или по URL из WAP-броузера: ""file:a:\путь\имяфайла.wmlc""" & CRLF & CRLF & "Введите имя текстового файла для конвертации (Внимание !!! файлы более 100Kb могут обрабатыватся достаточно долго.)","Converter txt2wmlc")
if instr(outnamefst,".")=0 then outnamefst=outnamefst & ".txt"
else
outnamefst=objArgs(0)
end if
If outnamefst=".txt" Then
'
elseIf not (fso.FileExists(outnamefst)) Then
MsgBox "Файл " & outnamefst & " не найден !!!",,"Converter txt2wmlc"
else
outname=outnamefst
if instr(outname,".")<>0 then outname=mid(outname,1,instrrev(outname,".")-1)
outname=name2imya(outname)
outname=left(outname,10)
Main()
if numbs>1 then
MsgBox"Созданы файлы для просмотра в микроброузере телефона siemens - оглавление и части с 1 по " & numbs & " в подкаталоге """ & outname & """",,"Converter txt2wmlc"
else
MsgBox"Создан файл для просмотра в микроброузере телефона siemens с именем """ & outname & ".wmlc""",,"Converter txt2wmlc"
end if
end if

Function name2imya(winstr)
RusWin= Split("А|Б|В|Г|Д|Е|Ё|Ж|З|И|Й|К|Л|М|Н|О|П|Р|С|Т|У|Ф|Х|Ц|Ч|Ш|Щ|Ъ|Ы|Ь|Э|Ю|Я|а|б|в|г|д|е|ё|ж|з|и|й|к|л|м|н|о|п|р|с|т|у|ф|х|ц|ч|ш|щ|ъ|ы|ь|э|ю|я", "|", -1, 0)
RusLAT= Split("A|B|V|G|D|E|E|ZH|Z|I|IY|K|L|M|N|O|P|R|S|T|U|F|H|TC|CH|SH|SCH|'|Y|'|E|YU|YA|a|b|v|g|d|e|e|zh|z|i|iy|k|l|m|n|o|p|r|s|t|u|f|h|tc|ch|sh|sch|'|y|'|e|yu|ya", "|", -1, 0)
for i=0 to 65
winstr=replace(winstr,RusWin(i),RusLAT(i),1,-1,0)
next
name2imya=replace(replace(replace(replace(replace(winstr,chr(34),"'")," ","_"),"<","("),">",")"),"&","and")
end Function

Function SaveWML(instr,number)
outnm=outname & number & ".wmlc"
nextstrlbl="NEXT":nextstract= outname & number+1 & ".wmlc"
if number=numbs then nextstrlbl="EXIT":nextstract="device:L-56"
If (fso.FileExists(outname & "/" & outnm)) Then fso.DeleteFile(outname & "/" & outnm)
Set f = fso.OpenTextFile(outname & "/" & outnm, 2, True)
f.Write chr(1) & chr(4) & chr(106) & chr(0) & chr(127) & chr(231) & chr(54) & chr(3) & outname & " #" & number & chr(0) & chr(1) & chr(232) & chr(24) & chr(3) & nextstrlbl & chr(0) & chr(56) & chr(1) & chr(171) & chr(74) & chr(3) & nextstract & chr(0) & chr(1) & chr(1) & chr(232) & chr(24) & chr(3) & "INDEX" & chr(0) & chr(69) & chr(1) & chr(171) & chr(74) & chr(3) & outname & ".wmlc" & chr(0) & chr(1) & chr(1) & chr(96) & chr(120) & chr(3) & chr(32)
f.Write instr & chr(32) & chr(0) & chr(1) & chr(1) & chr(1) & chr(1)
f.close
end Function

Function SaveWML1(instr)
outnm=outname & ".wmlc"
If (fso.FileExists(outnm)) Then fso.DeleteFile(outnm)
Set f = fso.OpenTextFile(outnm, 2, True)
f.Write chr(1) & chr(4) & chr(106) & chr(0) & chr(127) & chr(231) & chr(54) & chr(3) & outname & chr(0) & chr(85) & chr(158) & chr(3) & chr(120) & chr(0) & chr(1) & chr(232) & chr(24) & chr(3) & "TOP" & chr(0) & chr(56) & chr(1) & chr(171) & chr(74) & chr(3) & chr(35) & chr(0) & chr(158) & chr(3) & chr(120) & chr(0) & chr(1) & chr(1) & chr(232) & chr(24) & chr(3) & "EXIT" & chr(0) & chr(69) & chr(1) & chr(171) & chr(74) & chr(3) & "device:L-56" & chr(0) & chr(1) & chr(1) & chr(96) & chr(120) & chr(3) & chr(32) & instr & chr(32) & chr(0) & chr(1) & chr(1) & chr(1) & chr(1)
f.close
end Function

Function SaveIndex()
if numbs>9 then
If (fso.FileExists(outname & "/" & outname & ".wmlc")) Then fso.DeleteFile(outname & "/" & outname & ".wmlc")
Set f = fso.OpenTextFile(outname & "/" & outname & ".wmlc", 2, True)
snum=2
if numbs>99 then snum=3
f.Write chr(1) & chr(4) & chr(106) & chr(7) & "partno" & chr(0) & chr(127) & chr(231) & chr(54) & chr(3) & outname & chr(0) & chr(1) & chr(232) & chr(24) & chr(3) & "EXIT" & chr(0) & chr(69) & chr(1) & chr(171) & chr(74) & chr(3) & "device:L-56" & chr(0) & chr(1) & chr(1) & chr(232) & chr(24) & chr(3) & "GO" & chr(0) & chr(56) & chr(1) & chr(171) & chr(74) & chr(3) & outname & chr(0) & chr(130) & chr(0) & chr(03) & ".wmlc" & chr(0) & chr(1) & chr(1) & chr(96) & chr(120) & chr(3) & "Enter PART 1-" & numbs & ": " & chr(0) & chr(1) & chr(175) & chr(49) & chr(3) & snum & chr(0) & chr(26) & chr(3) & snum & chr(0) & chr(33) & chr(3) & "partno" & chr(0) & chr(18) & chr(3) & snum & "N" & chr(0) & chr(1) & chr(120) & chr(3) & " and press " & chr(0) & chr(100) & chr(3) & "GO" & chr(0) & chr(1) & chr(3) & " button for View" & chr(0) & chr(1) & chr(1) & chr(1) & chr(1)
f.close
else
If (fso.FileExists(outname & "/" & outname & ".wmlc")) Then fso.DeleteFile(outname & "/" & outname & ".wmlc")
Set f = fso.OpenTextFile(outname & "/" & outname & ".wmlc", 2, True)
f.Write chr(1) & chr(4) & chr(106) & chr(0) & chr(127) & chr(231) & chr(54) & chr(3) & outname & chr(0) & chr(1) & chr(232) & chr(24) & chr(3) & "EXIT" & chr(0) & chr(69) & chr(1) & chr(171) & chr(74) & chr(3) & "device:L-56" & chr(0) & chr(1) & chr(1) & chr(224) & chr(7) & chr(1) & chr(100)
for i=1 to numbs
f.Write chr(220) & chr(54) & chr(3) & "GO" & chr(0) & chr(74) & chr(3) & outname & i & ".wmlc" & chr(0) & chr(1) & chr(3) & "PART " & i & chr(0) & chr(1) & chr(38)
next
f.Write chr(1) & chr(1) & chr(1) & chr(1)
f.close
end if
end Function

Function Main()
Set ff = fso.GetFile(outnamefst)
Set f = ff.OpenAsTextStream(1)
infile=""
insize=ff.size
infile=f.Read(ff.size)
set f = nothing
set ff = nothing
set outfile = CreateObject("Scripting.Dictionary")
outfile.CompareMode=0
Bytes=1908-len(outname)-5
infile=replace(infile,CRLF,LF)
do while 0<>instr(infile," ")
infile=replace(infile," "," ")
loop
do while 0<>instr(infile,LF & LF & LF)
infile=replace(infile,LF & LF & LF,LF & LF)
loop
insize=len(infile)
tmpstr=""
for ir=1 to insize
bt=mid(infile,ir,1)
if RusWinHEX.Exists(bt) then bt=RusWinHEX.Item(bt)
if len(tmpstr & bt)>bytes then
numbs=numbs+1
outfile.add numbs,tmpstr
tmpstr=""
end if
tmpstr=tmpstr & bt
next
if tmpstr<>"" then numbs=numbs+1:outfile.add numbs,tmpstr
if numbs>1 then
If not (fso.FolderExists(outname)) Then Set f = fso.CreateFolder(outname)
SaveIndex()
For Each Items in outfile
a=SaveWML(outfile.Item(Items),Items)
Next
else
numbs=1
a=SaveWML1(outfile.Item(1))
end if
end Function

Нажмите, чтобы раскрыть...

сохраните его как txt2wmlc.vbs он перекодирует текстовые файлы в нужную кодировку, а потом по черному шлангу или красному глазу в телефон и читайте. Я сам пользовался.
Это я нашел в сети, есть еще много разных.

LORIC · 13.05.04

Хрен там, сконвертил в Uni, но когда открываю, идет запрос в инет (Wap) что делать?

Bor · 14.05.04

LORIC, это ты чем конвертил? Если скриптом, то все правильно, потому, что у файла расширение wmlc и смотрится он встроенным WAP-браузером телефона, как странички для телефонов. Вернее, не совсем правильно то, что в WAP лезет!!! Поподробнее укажи что телефончик пишет в этот момент. Ну встаю я на файл, открываю, загружается браузер и файл и все смотрится..
Вот страничка автора скрипта http://txt2wmlc.chat.ru эта тема с год назад на http://forum.siemens-club.ru разбиралась.

Вход / Регистрация

Чтение текстовых файлов на Siemens S55

LORIC Активный участник

shuffle Новичок

LORIC Активный участник

Kuzmich Активный участник

LORIC Активный участник

UncleSam Активный участник

Kuzmich Активный участник

Bor Активный участник

LORIC Активный участник

Bor Активный участник

Вход / Регистрация

Волгоградский форум

Пользователи

Чтение текстовых файлов на Siemens S55

LORIC Активный участник

shuffle Новичок

LORIC Активный участник

Kuzmich Активный участник

LORIC Активный участник

UncleSam Активный участник

Kuzmich Активный участник

Bor Активный участник

LORIC Активный участник

Bor Активный участник