jagr Мобильный FAQир Признанный телефонист В миру: Игорь Откуда: Россия, Люберцы С нами с: 28.10.2002 Плодовитость: 1835
Рейтинг
Подано 167 (141/26) голосов
|
Чтение книг на телефоне
|
Интересно, кроме меня еще кто-нибудь читает книги в wap-браузере?
В конце концов надоела мне ситуация с присвоением имен wmlc-файлам, особенно на длинных текстах. Дело в том, что индексом я не пользуюсь (один фиг каждый раз не запомнишь, на каком фрагменте в последний раз остановился), просто по ходу дела периодически прибиваю прочитанные куски, и первый сидящий во флексе фрагмент при следующем входе в метро оказывается тем, с которого и надо продолжать чтение.
Так вот, при нумерации xxx1, ..., xxx10, ..., xxx100, ... файлы оказываются неудобно отсортированы. Частично решить проблему можно, конечно, сортировкой по дате, но все равно получается криво.
Чуток подправил скрипт, теперь файлы нумеруются так: xxx001, xxx002, ...
Маленькое неудобство заключается в том, что в индексе номера нужно задавать именно таким образом, т.е. задавать, скажем, не 1-й, а 001-й фрагмент. Но мне это, как я уже говорил, абсолютно пофиг.
Если кого еще раздражает такой расклад, можете заменить две функции в файле txt2wmlc.vbs (чтобы не путаться, привожу текст функций целиком).
SaveWML:
[code]
Function SaveWML(instr,number)
outnm=outname
nextstrlbl="NEXT":nextstract= outname
if numbs < 10 Or numbs >= 1000 then
outnm=outnm & number
nextstract=nextstract & number+1
elseIf numbs < 100 then
if number < 9 then
outnm=outnm & "0" & number
nextstract=nextstract & "0" & number+1
elseIf number = 9 then
outnm=outnm & "0" & number
nextstract=nextstract & number+1
else
outnm=outnm & number
nextstract=nextstract & number+1
end if
else
if number < 9 then
outnm=outnm & "00" & number
nextstract=nextstract & "00" & number+1
elseIf number = 9 then
outnm=outnm & "00" & number
nextstract=nextstract & "0" & number+1
elseIf number < 99 then
outnm=outnm & "0" & number
nextstract=nextstract & "0" & number+1
elseIf number = 99 then
outnm=outnm & "0" & number
nextstract=nextstract & number+1
else
outnm=outnm & number
nextstract=nextstract & number+1
end if
end if
outnm = outnm & ".wmlc"
nextstract = nextstract & ".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
[/code]
SaveIndex:
[code]
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
strtemp=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 "
if snum=3 then
strtemp = strtemp & "00"
elseif snum=2 then
strtemp = strtemp & "0"
end if
f.Write strtemp & "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
[/code] |
____________________________
Ушел.
Сборник FAQ для оффлайн-чтения
|
|