csv zu html

[aeran]

Hallo, ich habe ein Skript geschrieben, welches bei einem GUI Fenster einzelne Textfelder in einer csv Tabelle reinschreibt. Nun würde ich gerne anstatt einer csv direkt in eine html Tabelle eintragen, was muss man ändern? bzw. kann man direkt konvertieren?
am einfachsten wäre für mich direkt in eine html Tabelle reinzuschreiben.

Code: Select all

FileCreateDir, %auditdir%\%Delivery%\%Delivery%_%PalletIN%
FileAppend, `nTFT%count%;%MNF%;%Model%;%Size%;%GRD%;%COL%;%SN%;%Delivery%;%PAL1%;%NumberBox1%;%WK1%;%WK2%;%WK3%;%WK4%;%Info1%;%Info2%;%Info3%;Test OK;%FullyDate%,  %auditdir%\%Delivery%\%Delivery%_%PalletIN%\%Delivery%_%PalletIN%.csv

[just me]

Moin,

ich verstehe das Problem nicht ganz. Willst Du die Daten in eine von wem auch immer angezeigte HTML-Seite einfügen oder willst Du eine HTML-Datei erstellen. Im zweiten Fall musst Du eben genau das tun, HTML schreiben.

[aeran]

Hallo,
danke für die antwort.
Wie ist der Code für genau diesen Code für Html? ich habe mit <td> und so weiter ausprobiert ging aber nicht so wie ich es wollte.

[just me]

Eine sehr gute Adresse zum Thema HTML ist https://selfhtml.org/.

[aeran]

Vielen Dank, ich komme seit Stunden einfach nicht mehr weiter...
Die File existiert in csv. Ich möchte nur die File in html Tabelle haben, das kann bestimmt nicht so schwer sein oder? ich möchte ungern das ganze Programm umändern (wollte ich zwar am anfang, aber es funktioniert nicht; also es will einfach nicht gehen, dass ich direkt in eine html tabelle schreibe)

gibt es keinen fertig tool, wo man nur den Dateinamen eingibt, und es automatisch convertiert?

[HinkerLoden]

ich denke ich hatte das mal in OpenOffice - Da kann man das direkt Import/Expotieren.

[aeran]

Dankeschön

[Johnny R]

Hier gibt es einen csv2htm-Konverter, der in Perl geschrieben ist. Kann man entweder mit Perl verwenden oder (vermutlich nicht allzu schwer) nach AHK umschreiben...

[Gerdi]

eventuell bringt Dich auch

Code: Select all

FileRead,Csv,c:\temp\muster.csv
Html:=Csv2Html(Csv)
FileAppend,%Html%,c:\temp\muster.html
run c:\temp\muster.html
Csv2Html(Csv,FeldTrenner=";")
{
	HochKommas="
	StringReplace,Csv,Csv,%HochKommas%,,all
	StringReplace,Csv,Csv,`r,,all
	StringReplace,Csv,Csv,`n,</td></tr>`r`n<tr><td>,all		
	StringReplace,Html,Csv,%FeldTrenner%,</td><td>,all
	StringTrimRight,Html,Html,20
	Vor=<table border="1" width="100`%">`r`n<tr><td>
	Nach=</td></tr>`r`n</table>
	return Vor Html Nach
}

weiter.

[aeran]

eventuell bringt Dich auch

Code: Select all

FileRead,Csv,c:\temp\muster.csv
Html:=Csv2Html(Csv)
FileAppend,%Html%,c:\temp\muster.html
run c:\temp\muster.html
Csv2Html(Csv,FeldTrenner=";")
{
	HochKommas="
	StringReplace,Csv,Csv,%HochKommas%,,all
	StringReplace,Csv,Csv,`r,,all
	StringReplace,Csv,Csv,`n,</td></tr>`r`n<tr><td>,all		
	StringReplace,Html,Csv,%FeldTrenner%,</td><td>,all
	StringTrimRight,Html,Html,20
	Vor=<table border="1" width="100`%">`r`n<tr><td>
	Nach=</td></tr>`r`n</table>
	return Vor Html Nach
}

weiter.

Hallo, Danke! hat super gut funktioniert, habe auf die schnelle einen Fenster erstellt mit FileSelectFile ein Datei aussuchen und mit

Code: Select all

StringTrimRight, FromWithOutCsvEnding, From, 4

die letzten 4 ziffern(.csv) entfernt und als .html gespeichert.Hat super funktioniert.

Aber wie muss ich den Code umändern, sodass ich die erste Zeile freilassen kann, zum Beispiel für einen Firmenlogo? Also das dieser Code immer eine Zeile ganz oben freilässt?

Hier mein veränderter Code:

Code: Select all

ButtonConvert:
	Gui, Submit, NoHide
	
	StringTrimRight, FromWithOutCsvEnding, From, 4
	StringRight, csvtest, From, 3
	
	IfEqual, csvtest, csv
	{
		FullPfad = %FromWithOutCsvEnding%.html
		
		FileRead,Csv,%From%
		Html:=Csv2Html(Csv)
		FileAppend,%Html%,%FullPfad%
		Csv2Html(Csv,FeldTrenner=";")
		{
			HochKommas="
			StringReplace,Csv,Csv,%HochKommas%,,all
			StringReplace,Csv,Csv,`r,,all
			StringReplace,Csv,Csv,`n,</td></tr>`r`n<tr><td>,all		
			StringReplace,Html,Csv,%FeldTrenner%,</td><td>,all
			StringTrimRight,Html,Html,20
			Vor=<table border="1" width="100`%">`r`n<tr><td>
			Nach=</td></tr>`r`n</table>
			return Vor Html Nach
		}	
		
		MsgBox,0,, Your new file has been created here: %FullPfad%
		
		MsgBox,4,, Open the new file?
		IfMsgBox No
			Return
		else
			Run %FullPfad%
		
	}else{
		MsgBox,0,, Your input is not a .csv File!
	}

Return

Danke
Lg

[just me]

Moin,

z.B. indem Du der Variablen Html vor oder bei der Ausgabe per FileAppend HTML-Tags voranstellst, die eine leere Zeile erzeugen.

Die Funktionskörper von Funktionen wie Csv2Html() würde ich nicht in anderen Code einbetten. Auch wenn es funktioniert, macht es den Code meiner Meinung nach unübersichtlich. Funktionen sind eigenständige Codeabschnitte genauso wie Subroutinen.