русский
Germany.ru → Foren → Архив Досок→ Programmierung

Написать программу

523  
skalosub завсегдатай15.12.10 12:38
skalosub
NEW 15.12.10 12:38 
Не судите строго, не специалист. Мне нужна программа, которая бы заносила данные из WORD в таблицу, что бы в результате получилось вот такое:
http://www.eska-tv.de/MIELE-waschmaschine-trockner.htm в эту таблицу данные занесены руками, хотелось бы немного облегчить труд.
Спасибо!
#1 
Zlatogorov посетитель15.12.10 12:50
NEW 15.12.10 12:50 
in Antwort skalosub 15.12.10 12:38, Zuletzt geändert 15.12.10 12:51 (Zlatogorov)
Что за таблица имеется в виду HTML или DB ?
А так 100 евреев на PayPal и готово :)
#2 
skalosub завсегдатай15.12.10 14:06
skalosub
NEW 15.12.10 14:06 
in Antwort Zlatogorov 15.12.10 12:50
Я работаю с Namo WebEditor, таблица в HTML.
#3 
Zlatogorov посетитель15.12.10 14:08
15.12.10 14:08 
in Antwort skalosub 15.12.10 14:06
Хотя WORD парсить та ещё заморочка. Все данные которые потом пойдут в таблицу должны быть как то отмаркированы в исходном тексте.
#4 
gendy Dinosaur15.12.10 14:27
gendy
15.12.10 14:27 
in Antwort skalosub 15.12.10 12:38
а в WORD они в каком виде? таблицей, сплошным текстом, по слову в строке?
почему не можете сохранить WORD в txt - документе, его парсить куда легче
ну или в зависимости от структуры WORD - документа возможно имеет смысл VBA-skript

Фашизм будет разбит


Человека карают только те боги, в которых он верит

#5 
skalosub завсегдатай16.12.10 11:23
skalosub
16.12.10 11:23 
in Antwort gendy 15.12.10 14:27
Исходный текст выглядит так:
SIEMENS BS10 (Bodenpflege / Sauger)
SIEMENS BS11 (Bodenpflege / Sauger)
SIEMENS BS12 SIEMENS (Bodenpflege / Sauger)
SIEMENS BS2 (Bodenpflege / Sauger)
SIEMENS BS3 (Bodenpflege / Sauger)
SIEMENS BS4 (Bodenpflege / Sauger)
SIEMENS BS6 BBS6201EU01 (Bodenpflege / Sauger)
SIEMENS BS7 (Bodenpflege / Sauger)
SIEMENS BS73 VS32A0201 (Bodenpflege / Sauger)
каждая строка должна попасть в отдельную клетку таблицы, которую я смог бы вставить в Namo Webeditor.
#6 
gendy Dinosaur16.12.10 12:34
gendy
NEW 16.12.10 12:34 
in Antwort skalosub 16.12.10 11:23
vbs скрипт
dateiPfad = "D:\Beispiel.txt"
dateiPfad2 = "D:\Beispiel.html"
columps = 3 'spaltenanzahl
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
f2.WriteLine("</tr></table>")
f.Close
f2.Close
End If 
Set f = nothing
Set f2 = nothing
Set fs = nothing


результат

<table><tr>
<td>SIEMENS BS10 (Bodenpflege / Sauger)</td>
<td>SIEMENS BS11 (Bodenpflege / Sauger)</td>
<td>SIEMENS BS12 SIEMENS (Bodenpflege / Sauger)</td>
</tr><tr>
<td>SIEMENS BS2 (Bodenpflege / Sauger)</td>
<td>SIEMENS BS3 (Bodenpflege / Sauger)</td>
<td>SIEMENS BS4 (Bodenpflege / Sauger)</td>
</tr><tr>
<td>SIEMENS BS6 BBS6201EU01 (Bodenpflege / Sauger)</td>
<td>SIEMENS BS7 (Bodenpflege / Sauger)</td>
<td>SIEMENS BS73 VS32A0201 (Bodenpflege / Sauger)</td>
</tr><tr>
<td></td>
</tr></table>


специально оставил последнюю строку неубранной, её в принципе можно и руками подчистить

Фашизм будет разбит


Человека карают только те боги, в которых он верит

#7 
skalosub завсегдатай16.12.10 12:41
skalosub
NEW 16.12.10 12:41 
in Antwort gendy 16.12.10 12:34
Спасибо огромное, попробую разобраться, как это работает!!!
#8 
gendy Dinosaur16.12.10 12:41
gendy
NEW 16.12.10 12:41 
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")'прощаемся


Фашизм будет разбит


Человека карают только те боги, в которых он верит

#9