vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Probleme mit Split() Funktion 
Autor: Mr.Hausen
Datum: 24.07.07 11:25

Tschuldigung....

Hallo zusammen,
habe nun die Lösung gefunden...

NewText = IArg
FF = FreeFile
Open App.Path & "\ersetzung.txt" For Binary As #FF
strContent = Space$(LOF(FF))
Get #FF, , strContent
Close #FF
strLines = Split(strContent, vbCrLf)
For i = 0 To UBound(strLines)
Temp = Split(strLines(i), "=>")
ReDim Preserve Temp(1)
NewText = Replace(NewText, Temp(0), Temp(1))
Debug.Print CInt(100 / UBound(strLines) * i) & " %"
Next i

Die Fett-gedruckte Zeile muss noch eingefühgt werden, dann funzt es auch.

Danke an alle die mir geholfen haben.....

Gruss Hausen
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Probleme mit Split() Funktion792Mr.Hausen23.07.07 16:16
Re: Probleme mit Split() Funktion382Zardoz23.07.07 16:43
Re: Probleme mit Split() Funktion372Mr.Hausen23.07.07 17:54
Re: Probleme mit Split() Funktion376Zardoz23.07.07 18:31
Re: Probleme mit Split() Funktion384Lord_Duke24.07.07 07:48
Re: Probleme mit Split() Funktion384Mr.Hausen24.07.07 08:06
Re: Probleme mit Split() Funktion373Mr.Hausen24.07.07 11:24
Re: Probleme mit Split() Funktion376Mr.Hausen24.07.07 11:25
Re: Probleme mit Split() Funktion384Zardoz24.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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel