title image


Smiley Re: Probleme mit VBS - ich bin zu doof
Erstelle Dir mal eine XXX.VBS-Datei und übertrage die folgenden Zeilen. Die Funktion sollte somit klar sein. Bei Dir brauchst Du nur nach dem Einlesen aus der Text-Datei und vor dem Erstellen der Playlist das Ganze einbinden...



Beispiel:



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



Dim Ausdruck, SuchZF, ErsetzenDurch



Ausdruck="Test"

SuchZF="st"

ErsetzenDurch="ST"



Ausdruck = Replace(Ausdruck, SuchZF, ErsetzenDurch)



MsgBox(Ausdruck)



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





Bei Dir im Code:



000Playlist.vbs

*********************CUT******************************



Dim Ausdruck, SuchZF, ErsetzenDurch

.

.

.

.



while not i.atendofstream



Ausdruck=mid(i.readline,1)

SuchZF="ÂŽ"

ErsetzenDurch="ä"

Ausdruck = Replace(Ausdruck, SuchZF, ErsetzenDurch)

SuchZF="?"

ErsetzenDurch="?"

Ausdruck = Replace(Ausdruck, SuchZF, ErsetzenDurch)





o.writeline Ausdruck



wend

.

.

.







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




Wer weiß schon, was er nicht weiß...(ich zähle mich auch dazu) Holger

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: