Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Probleme mit Split() Funktion
Autor: Mr.Hausen
Datum: 23.07.07 16:16
Hallo zusammen, ich bekomme bei der folgenden Anweisung folgenden Fehler: Temp(1) = >Index ausserhalb desgültigen Berreichs> Muss ich Temp irgenwie anders deklarieren? Hat jemand dafür eine Lösung?? Zur Erklärung: Ich öffne die Esetzung.txt und er soll den einen Abkürung die in einem vorher eingelesenen Text vorkommt durch den rechten Wert ersetzen. Haust=>Haustür Wohn=>Wohnung usw... Gruss Hausen Private Sub Form_Load() Dim NewText As String 'Der Ausgabe-Text Dim CurrentLine As String 'Inhalt der Ersetzung.txt Dim Temp As Variant 'Die einzelnen Ersetzungen Dim FF As Long 'Dateizugriffsnummer NewText = Command FF = FreeFile Open App.Path & "\Ersetzung.txt" For Input As #FF Do While Not EOF(FF) Line Input #FF, CurrentLine Temp = Split(CurrentLine, "=>") NewText = Replace(NewText, Temp(0), Temp(1)) Loop Close #FF

Probleme mit Split() Funktion	792	Mr.Hausen	23.07.07 16:16
Re: Probleme mit Split() Funktion	382	Zardoz	23.07.07 16:43
Re: Probleme mit Split() Funktion	371	Mr.Hausen	23.07.07 17:54
Re: Probleme mit Split() Funktion	376	Zardoz	23.07.07 18:31
Re: Probleme mit Split() Funktion	384	Lord_Duke	24.07.07 07:48
Re: Probleme mit Split() Funktion	384	Mr.Hausen	24.07.07 08:06
Re: Probleme mit Split() Funktion	373	Mr.Hausen	24.07.07 11:24
Re: Probleme mit Split() Funktion	375	Mr.Hausen	24.07.07 11:25
Re: Probleme mit Split() Funktion	384	Zardoz	24.07.07 11:29

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen