Login
Написать программу
523 просмотров
Перейти к просмотру всей ветки
in Antwort skalosub 16.12.10 11:23, Zuletzt geändert 16.12.10 12:45 (gendy)
или лучше так
dateiPfad = "D:\Beispiel.txt" 'список артиклей
dateiPfad2 = "D:\Beispiel.html" 'готовая таблица
columps = 3 'количество столбцов
x = 0
Const ForReading = 1
Set fs = CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(dateiPfad)) Then
Set f = fs.OpenTextFile(dateiPfad, ForReading)
Set f2 = fs.CreateTextFile(dateiPfad2)
f2.WriteLine("<table><tr>") 'заголовок таблицы
Do While f.AtEndOfStream <> True
x = x+1
org_zeile = f.Readline 'чтение артикля из списка
f2.WriteLine("<td>" & org_zeile & "</td>") 'и внесение в таблицу
If x >= columps then
f2.WriteLine("</tr><tr>") 'строка заполнена, готовим следующую
x = 0
End If
Loop
Do While x < columps
f2.WriteLine("<td></td>") 'выравниваем нижнюю строку
x = x+1
Loop
f2.WriteLine("</tr></table>") 'закрываем таблицу
f.Close
f2.Close
End If
Set f = nothing
Set f2 = nothing
Set fs = nothing
MsgBox ("fertig")'прощаемся
Фашизм будет разбит
Человека карают только те боги, в которых он верит