title image


Smiley Re: Probleme mit VBS - ich bin zu doof
Hi hsachse,

danke das Du Dir die Zeit genommen hast meinene frage zu Bearbeiten.

Ich hab nun alles so Eingetragen wie von Dir gewollt, dennoch bekomme ich die Fehlermeldung "Zeile 21 wend erwartet" was mich Irretiert, denn Zeile 21 ist die Letzte Zeile ohne Text.

Hier nochmal der Code für die 000Playlist.vbs

***************

set fso=createobject("scripting.filesystemobject")

set i=fso.opentextfile("Textlist.txt")

while not i.atendofstream



Dim Ausdruck, SuchZF, ErsetzenDurch



set o=fso.opentextfile(fso.getbasename(fso.getparentfoldername(wscript.scriptfullname))&" - Playlist.m3u",2,true)

while not i.atendofstream

o.writeline mid(i.readline,1)



Ausdruck=mid(i.readline,1)

SuchZF="ÂŽ"

ErsetzenDurch="ä"

Ausdruck = Replace(Ausdruck, SuchZF, ErsetzenDurch)



o.writeline Ausdruck



wend

i.close

o.close

******************



Auch das Einbinden von

SuchZF="?"

ErsetzenDurch="?"

Ausdruck = Replace(Ausdruck, SuchZF, ErsetzenDurch)

bringt nichts, würde sowiso gegen die anderen Umlaute Ausgetauscht Denke ich.



Währst Du so nett den Code noch einmal Durchzuschauen?

Ich dreh noch durch, google schon den ganzen Tag, und Trete auf der Stelle.



Ralf total Verzweifelt





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: