Codierung einer datei ändern

[lucy87]

Hallo,

da bin ich mal wieder mit einer kleinen frage

Ich hab da ein makro geschrieben, dass mir html-dateien öffnet und daraus informationen ausließt. allerdings habe ich dabei dass problem, dass mir umlaute nicht richtig in die calc-tabelle eingetragen werden. ich hab festgestellt, dass das kein problem ist, wenn die html-dateien in der ansi-codierung gespeichert werden. das für jede datei zu machen ist natürlich aber von hand zu blöd.

ich suche also den codeschnippsel, der mir die codierung der datei ändert, bevor sie geöffnet wird.

so sieht mein code in etwa jetzt aus:

Code: Alles auswählen

REM  *****  BASIC  *****

Sub Main
	Dim iNumber As Integer
	Dim sLine As String
	Dim aFile As String
	dokument = thisComponent
	tabelle1 = dokument.Sheets().getByName("tabelle1")
	for d = 1 to 40
	if FileExists("d:\\dateipfad\" & d & ".htm") = true then
	aFile = "d:\\dateipfad\" & d & ".htm"
	iNumber = Freefile
	Open aFile For Input As iNumber
	While not eof(iNumber)
	Line Input #iNumber, sLine
die ganzen befehle hier erspar ich euch mal
	wend
	Close #iNumber
	end if
	next d
End Sub

ich schätze mal, dass ich irgendwo zwischen if FileExists und open aFile etwas einbauen können muss, dass die datei im Ansi-code speichern kann.

lg, lucy

[Karolus]

Hallo

Die vorsintflutlichen Basic-kommandos zum Dateien lesen/schreiben kennen nichts ausserhalb von ascii, steig auf eine vernünftige Scriptsprache ( Python, etc. ) um, oder such hier mal mit dem Begriff "simpleFileAccess".

Karo