Re: Doppeltes Hochkomma (") in Textdatei schreiben
20.01.2003 17:50:15
Gerhard
Also, ich hab hier mal den Code für das Erstellen der Datei:
Application.Worksheets("META").Calculate
inti = 2
While Range("A" & inti) <> ""
sOutput = ""
Kunde = Worksheets("META").Range("A" & inti).Value
Dateinummer = FreeFile
Open "E:\Websubmission\Metatags " & Kunde & ".txt" For Output As #Dateinummerdann kommt der Programmablauf für das zuweisen des Textes der verschiedenen Felder an Variablen:
URL(inti) = Application.Worksheets("META").Range("B" & inti)
und dann noch das speichern und schliessen der Datei:
sOutput = Head + vbCrLf + Typ + vbCrLf + Script + vbCrLf + Style + vbCrLf + Language + vbCrLf + Descriptioncont + vbCrLf + Keywordcont + vbCrLf + Revisit + vbCrLf + Robots + vbCrLf + Author + vbCrLf + Copyright + vbCrLf + Topiccont + vbCrLf + Rating + vbCrLf + Distribution + vbCrLf + EndHead
Write #Dateinummer, sOutput
Close #Dateinummer
inti = inti + 1
Wend
Im Excel steht folgendes als reiner Text formatiert in der Spalte:
META name="copyright" content="Atikon Computer Orientiertes Marketing GmbH" (mit kleiner bzw größer-zeichen als HTML-Code)
und ausgegeben wird dies in der .txt Datei wieder wie folgt:
META name=""copyright"" content=""Atikon Computer Orientiertes Marketing GmbH"" (mit kleiner bzw größer-zeichen als HTML-Code)
Außerdem wird als erstes und letztes Zeichen der .txt Datei (oder einer anderen zB. *.dat) auch ein " eingefügt wird, das passiert sowieso immer.
Muss ich hier irgendwelche speziellen Regeln oder Formatierungen beachten?
Vielen Dank für die Bemühungen schon im Voraus!!!
mfg Gerhard