Зацените пожалуйста...

Bloodrinker · 16 Янв 2010

я сделал себе так, разбивает по 60 слов, вставляет теги хтмл, и убирает все лишнее вышло так:

Код:

#include <file.au3>

DirRemove(@ScriptDir & "\Result1", 1)
DirCreate(@ScriptDir & "\Result1")
$file = @ScriptDir & "\slovar.txt"
$file1 = @ScriptDir & "\Result1\slovar.new.txt"


$sTest = FileRead($file)
$sTest = StringRegExpReplace($sTest, "[_+0-9]", "")
$sTest = StringReplace($sTest, "*", "<tr><td>")
$sTest = StringReplace($sTest, "=", "</td><td>")
$sTest = StringReplace($sTest, ";", "</td></tr>")
$len = StringLen($sTest)
$sTest = StringLeft($sTest, $len)
FileWrite($file1, $sTest)

$CountLines = _FileCountLines($file1)
$n = 1
For $i = 1 To $CountLines
    $sTest = FileReadLine($file1, $i)
    $letter = StringLeft($sTest, 1)
    If $letter = "" Then ExitLoop
    If mod($i -1, 60) = 0 Then
        $n +=1
    EndIf
    FileWrite(@ScriptDir & "\Result1\" & $n-1 & "_урок.txt", $sTest & @CRLF)
Next
FileDelete($file1)
ConsoleWrite("Все готово!")

т е теперь строчка выглядит так: <tr><td>bore</td><td>скука</td></tr>
но еще надо в каждый документ сверху добавить

Код:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <title>Словарик</title>
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
</head>
<body>
<h1>Словарик</h1>
<table bordercolor="c1c2d0" bgcolor="e3e5ff" cellpadding="2" cellspacing="0"  width="40%" border="1">
<tr>
  <td style="background-color: rgb(0, 0, 113); color: white; font-weight: bold;">English</td>
  <td style="background-color: rgb(0, 0, 113); color: white; font-weight: bold;">Русский</td>
</tr>

а снизу

Код:

</table>
</body>
</html>

итого получится 90 txt файлов с готовым HTML кодом))) вот илазию в справке, незнаю как добавить) никак не получается, добавляет только в первый блокнот и дальше скрипт перестает работать хелп)

SyDr · 16 Янв 2010

Тег AutoIt чуть-чуть правее тега код :smile:

Файл slovar.txt - оригинальный файл (который ты нам скидывал)
Файл Head.txt - то, что сверху добавлять
Файл End.txt - то, что снизу добавлять

Время работы - 2 секунды

Код:

#include <File.au3>

Dim $asTable, $hFile

_FileReadToArray('slovar.txt', $asTable)
$sHead = FileRead('Head.txt')
$sEnd = FileRead('End.txt')

For $nCount = 1 To $asTable[0]
	$nSl = StringLen($asTable[$nCount])

	If $nSl = 0 Then
		_FileClose($hFile)
		ExitLoop
	EndIf

	$nEq = StringInStr($asTable[$nCount], '=')

	If Mod($nCount - 1, 60) = 0 Then $hFile = _FileOpen('Result\Res' & Ceiling($nCount/60) & '.html')
	FileWrite($hFile, '<tr><td>' & StringMid($asTable[$nCount], 3, $nEq - 3) & '</td><td>' & StringMid($asTable[$nCount], $nEq + 1, $nSl - $nEq - 7) & '</td></tr>')
	If Mod($nCount, 60) = 0 Then _FileClose($hFile)
Next

Func _FileOpen($sPath)
	Local $hFile = FileOpen($sPath, 8 + 2)
	FileWrite($hFile, $sHead)
	Return $hFile
EndFunc

Func _FileClose($hFile)
	FileWrite($hFile, $sEnd)
	FileClose($hFile)
EndFunc

Прокомментировать код надо?

madmasles · 16 Янв 2010

SyDr
Красиво и быстро!
Мне до такого результата - учиться и учиться.
В коде попробую сам разобраться.

Bloodrinker · 16 Янв 2010

SyDr, шикарненько :ok:

коментировать ненадо. Чужой я разобрать могу с легкостью а вот свой сделать кишка тонка((( спасибо... буду тестить)))

Автор темы	Похожие темы	Форум	Ответы	Дата
N	Автоматизация Подредактируйте скрипт. Что бы он не закрывался после работы пожалуйста, а только по нажатию клавиши Z.	Стол заказов	5	25 Сен 2022
	Подскажите пожалуйста как сделать, чтобы при значении оператора true скрипт выключался, а при false продолжал работать. Кому не трудно	Общие вопросы по AutoIt	0	3 Июн 2022
N	Помогите пожалуйста переписать данный скрипт из AHK в Autoit	Общие вопросы по AutoIt	0	20 Июл 2021
A	Элементы GUI Помогите пожалуйста	Общие вопросы по AutoIt	1	28 Авг 2020
A	Помогите пожалуйста упорядочить строки в текстовом документе.	Общие вопросы по AutoIt	1	20 Мар 2020

Поиск

Поиск

Зацените пожалуйста...

Bloodrinker

<Блуждающий...>

SyDr

Сидра

madmasles

Модератор

Bloodrinker

<Блуждающий...>