Конвертер Fb2 в TXT
Peter Дата: Ср, 08 Февраля 2012, 18:30 | Сообщение # 31 Quote (mishem )
Умный в гору не пойдет, умный гору обойдет.
Нормальные герои всегда идут в обход! Quote (mishem )
Только Русские могут создать сами себе проблему, а после ГЕРОИЧЕСКИ ее преодолеть.
mishem , что случилось?
В последнее время, заинтресовавшись вопросом, так сказать, поближе, и изучив тему поконкретнее, честно говоря, не могу догнать: это же насколько нужно быть тупым, чтобы всерьез верить байкам о том, что америкосы не летали в реальности на Луну, и все это была инсценировка, снятая в Голливуде.
Причем, что самое интересное - корни у этих баек находятся в самих штатах!
Нет,
mishem , ты не прав, и чудаков на букву "м" везде хватает.
А Россия (да, многое через одно место, но...) "сама строит, сама и преодолевает" не всю жизнь, а начиная с 17-го года прошедшего столетия.
Quote (mishem )
Мож ты после инфаркта когда курить бросил просто опух, а решил что толстеешь?
mishem , со времени инфаркта, к тому моменту как бросил курить, прошло 14(!) лет, а как начал курить, так практически сразу пришел "в норму". Quote (mishem )
Ноги отекли. Говорят сердечная недостаточность.
- А вам какую операционку поставить - экспи, семерку или висту? При модном втюхе модоподдающимся начинает нравиться
Сообщение Quote (mishem )
Умный в гору не пойдет, умный гору обойдет.
Нормальные герои всегда идут в обход! Quote (mishem )
Только Русские могут создать сами себе проблему, а после ГЕРОИЧЕСКИ ее преодолеть.
mishem , что случилось?
В последнее время, заинтресовавшись вопросом, так сказать, поближе, и изучив тему поконкретнее, честно говоря, не могу догнать: это же насколько нужно быть тупым, чтобы всерьез верить байкам о том, что америкосы не летали в реальности на Луну, и все это была инсценировка, снятая в Голливуде.
Причем, что самое интересное - корни у этих баек находятся в самих штатах!
Нет,
mishem , ты не прав, и чудаков на букву "м" везде хватает.
А Россия (да, многое через одно место, но...) "сама строит, сама и преодолевает" не всю жизнь, а начиная с 17-го года прошедшего столетия.
Quote (mishem )
Мож ты после инфаркта когда курить бросил просто опух, а решил что толстеешь?
mishem , со времени инфаркта, к тому моменту как бросил курить, прошло 14(!) лет, а как начал курить, так практически сразу пришел "в норму". Quote (mishem )
Ноги отекли. Говорят сердечная недостаточность.
Автор - Peter 08 Февраля 2012 в 18:30
DEMBEL Дата: Ср, 08 Февраля 2012, 21:06 | Сообщение # 32
Quote (Peter )
Ноги отекли. Говорят сердечная недостаточность.
хреново
Как задавать вопросы
Сообщение
Quote (Peter )
Ноги отекли. Говорят сердечная недостаточность.
хреново
Автор - DEMBEL 08 Февраля 2012 в 21:06
mishem Дата: Ср, 08 Февраля 2012, 22:53 | Сообщение # 33 Я уже в больнице на койке под капельницей.
Не хочешь читать хелп? Если хелп и форум не помогли, тогда все ответы здесь
Сообщение Я уже в больнице на койке под капельницей. Автор - mishem 08 Февраля 2012 в 22:53
Woha28 Дата: Ср, 08 Февраля 2012, 23:08 | Сообщение # 34 Всем большое спасибо за помощь!
FileOpenBox "Открыть" "fb2|*.fb2" "[LastDir]" "[File]" ""
FileRead "[File]" "All" "[text]"
SearchStr "<body>" "[text]" "[poisk]" ""
SearchStr "</body>" "[text]" "[poisk2]" ""
SubStr "[text]" "[poisk]" "[poisk2]-[poisk]" "[text]"
SetVar "[poisk]" ""
SetVar "[tegi]" "<p>|</p>|<section>|</section>|<empty-line/>|<epigraph>|</epigraph>|<text-author>|</text-author>|<description>|<title-info>|<genre>|</genre>|<author>|<first-name>|</first-name>|<middle-name>|</middle-name>|<last-name>|</last-name>|</author>|<book-title>|</book-title>|<annotation>|</annotation>|</title-info>|</description>|<body>|<poem>|<stanza>|</v>|</stanza>|</a>|<strong>|</strong>|<cite>|</cite>|</body>"
StrParse "[tegi]" "|" "[tegi]" "[tegi_K]"
Loop "1" "[tegi_K]" "[i]"
StrReplace "[text]" "[tegi[i]]" "[#32]" "[text]" ""
EndLoop
DeleteArray "[tegi]" "All"
StrReplace "[text]" "<v>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "<title>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "</title>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "</poem>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "<subtitle>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "</subtitle>" "[#13][#10]" "[text]" ""
SetVar "[poisk]" ""
While "[poisk]" "<>" "0"
SearchStr "<" "[text]" "[poisk]" ""
SearchStr ">" "[text]" "[poisk2]" ""
StrDel "[text]" "[poisk]" "[poisk2]-[poisk]+1" "[text]"
EndWhile
FileSaveBox "Сохранить как..." "TXT|*.txt" "[LastDir]" "[File]"
FileWrite "[File]" "All" "[text]"
Добавлено (08 Февраля 2012, 23:08)
FileOpenBox "Открыть" "fb2|*.fb2" "[LastDir]" "[File]" ""
FileRead "[File]" "All" "[text]"
SearchStr "<body>" "[text]" "[poisk]" ""
SearchStr "</body>" "[text]" "[poisk2]" ""
SubStr "[text]" "[poisk]" "[poisk2]-[poisk]" "[text]"
SetVar "[poisk]" ""
SetVar "[tegi]" "<p>|</p>|<section>|</section>|<empty-line/>|<epigraph>|</epigraph>|<text-author>|</text-author>|<description>|<title-info>|<genre>|</genre>|<author>|<first-name>|</first-name>|<middle-name>|</middle-name>|<last-name>|</last-name>|</author>|<book-title>|</book-title>|<annotation>|</annotation>|</title-info>|</description>|<body>|<poem>|<stanza>|</v>|</stanza>|</a>|<strong>|</strong>|<cite>|</cite>|</body>"
StrParse "[tegi]" "|" "[tegi]" "[tegi_K]"
Loop "1" "[tegi_K]" "[i]"
StrReplace "[text]" "[tegi[i]]" "[#32]" "[text]" ""
EndLoop
DeleteArray "[tegi]" "All"
StrReplace "[text]" "<v>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "<title>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "</title>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "</poem>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "<subtitle>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "</subtitle>" "[#13][#10]" "[text]" ""
SetVar "[poisk]" ""
While "[poisk]" "<>" "0"
SearchStr "<" "[text]" "[poisk]" ""
SearchStr ">" "[text]" "[poisk2]" ""
StrDel "[text]" "[poisk]" "[poisk2]-[poisk]+1" "[text]"
EndWhile
FileSaveBox "Сохранить как..." "TXT|*.txt" "[LastDir]" "[File]"
FileWrite "[File]" "All" "[text]"
Сообщение Всем большое спасибо за помощь!
FileOpenBox "Открыть" "fb2|*.fb2" "[LastDir]" "[File]" ""
FileRead "[File]" "All" "[text]"
SearchStr "<body>" "[text]" "[poisk]" ""
SearchStr "</body>" "[text]" "[poisk2]" ""
SubStr "[text]" "[poisk]" "[poisk2]-[poisk]" "[text]"
SetVar "[poisk]" ""
SetVar "[tegi]" "<p>|</p>|<section>|</section>|<empty-line/>|<epigraph>|</epigraph>|<text-author>|</text-author>|<description>|<title-info>|<genre>|</genre>|<author>|<first-name>|</first-name>|<middle-name>|</middle-name>|<last-name>|</last-name>|</author>|<book-title>|</book-title>|<annotation>|</annotation>|</title-info>|</description>|<body>|<poem>|<stanza>|</v>|</stanza>|</a>|<strong>|</strong>|<cite>|</cite>|</body>"
StrParse "[tegi]" "|" "[tegi]" "[tegi_K]"
Loop "1" "[tegi_K]" "[i]"
StrReplace "[text]" "[tegi[i]]" "[#32]" "[text]" ""
EndLoop
DeleteArray "[tegi]" "All"
StrReplace "[text]" "<v>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "<title>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "</title>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "</poem>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "<subtitle>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "</subtitle>" "[#13][#10]" "[text]" ""
SetVar "[poisk]" ""
While "[poisk]" "<>" "0"
SearchStr "<" "[text]" "[poisk]" ""
SearchStr ">" "[text]" "[poisk2]" ""
StrDel "[text]" "[poisk]" "[poisk2]-[poisk]+1" "[text]"
EndWhile
FileSaveBox "Сохранить как..." "TXT|*.txt" "[LastDir]" "[File]"
FileWrite "[File]" "All" "[text]"
Добавлено (08 Февраля 2012, 23:08)
FileOpenBox "Открыть" "fb2|*.fb2" "[LastDir]" "[File]" ""
FileRead "[File]" "All" "[text]"
SearchStr "<body>" "[text]" "[poisk]" ""
SearchStr "</body>" "[text]" "[poisk2]" ""
SubStr "[text]" "[poisk]" "[poisk2]-[poisk]" "[text]"
SetVar "[poisk]" ""
SetVar "[tegi]" "<p>|</p>|<section>|</section>|<empty-line/>|<epigraph>|</epigraph>|<text-author>|</text-author>|<description>|<title-info>|<genre>|</genre>|<author>|<first-name>|</first-name>|<middle-name>|</middle-name>|<last-name>|</last-name>|</author>|<book-title>|</book-title>|<annotation>|</annotation>|</title-info>|</description>|<body>|<poem>|<stanza>|</v>|</stanza>|</a>|<strong>|</strong>|<cite>|</cite>|</body>"
StrParse "[tegi]" "|" "[tegi]" "[tegi_K]"
Loop "1" "[tegi_K]" "[i]"
StrReplace "[text]" "[tegi[i]]" "[#32]" "[text]" ""
EndLoop
DeleteArray "[tegi]" "All"
StrReplace "[text]" "<v>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "<title>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "</title>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "</poem>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "<subtitle>" "[#13][#10]" "[text]" ""
StrReplace "[text]" "</subtitle>" "[#13][#10]" "[text]" ""
SetVar "[poisk]" ""
While "[poisk]" "<>" "0"
SearchStr "<" "[text]" "[poisk]" ""
SearchStr ">" "[text]" "[poisk2]" ""
StrDel "[text]" "[poisk]" "[poisk2]-[poisk]+1" "[text]"
EndWhile
FileSaveBox "Сохранить как..." "TXT|*.txt" "[LastDir]" "[File]"
FileWrite "[File]" "All" "[text]"
Автор - Woha28 08 Февраля 2012 в 23:08
mishem Дата: Ср, 08 Февраля 2012, 23:21 | Сообщение # 35 Woha28 , по хорошему это надо дорабатывать. Нужно смотреть файлы и учитывать где что не так.Не хочешь читать хелп? Если хелп и форум не помогли, тогда все ответы здесь
Сообщение Woha28 , по хорошему это надо дорабатывать. Нужно смотреть файлы и учитывать где что не так.Автор - mishem 08 Февраля 2012 в 23:21
DEMBEL Дата: Чт, 09 Февраля 2012, 19:27 | Сообщение # 36 Еще вариант функции, работаем с файлом как xml
Как задавать вопросы
Сообщение Еще вариант функции, работаем с файлом как xml Автор - DEMBEL 09 Февраля 2012 в 19:27
Woha28 Дата: Чт, 09 Февраля 2012, 21:28 | Сообщение # 37 Quote (DEMBEL )
Еще вариант функции, работаем с файлом как xml
Сообщение Quote (DEMBEL )
Еще вариант функции, работаем с файлом как xml
Автор - Woha28 09 Февраля 2012 в 21:28
