Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Was bedeutet das ?
Autor: DerBaer
Datum: 17.06.07 07:48
"Loop through, check for carriage returns to get each file name and add to listbox" Heißt in etwa: "Durchlauf, Suche nach CarriageReturn(Neue Zeile und Zeielnvorschub; entspricht einem normalen ENTER) um jeden Dateinamen zu bekommen und in die Liste zu schreiben"   = 1 To Len(RemoteFiles) 'Jedes Zeichen durchlaufen If Mid(RemoteFiles, i, 1) = Chr(13) Then 'Wenn es ein CarriageReturn ist, dann True If Trim(RemoteFileName) <> "" Then 'Wenn in RemotefileName etwas steht lstRemoteFile.AddItem RemoteFileName 'Fügt RemoteFileName zur Liste hinzu RemoteFileName = "" 'Leer die Variable End If Else 'Ansonsten If Mid(RemoteFiles, i, 1) <> Chr(10) Then 'Wenn es kein einzelnes Return ist RemoteFileName = RemoteFileName & Mid(RemoteFiles, i, 1) 'RemotFileName um das entsprechende Zeichen verlängern End If End If Next i /code] Zusammen gefasst: In RemoteFiles stehen die Dateinamen untereinander. Am Ende jeder Zeile ist ein CarriageReturn = Chr(13) das programm liest ein zeichen nach dem anderen aus. Wenn es ein "normales zeichen ist (z.b. Buchstabe), wird der Name des momentan gesuchten Dateinamens um dieses Zeichen erweitert. Ansonsten wird der bis dorthin entstandene Dateiname in die Liste aufgenommen. Beispiel: RemoteFiles: Datei1 Datei2 Datei3 Text wird Zeichenweise ausgelesen und zu RemoteFileName ergänzt D Da Dat Date Datei Datei1 Jetzt kommt das Carriage Return => Speichern von Datei1 in die Liste Löschen von RemoteFileName und neubeginn D Da Dat Date Datei Datei2 : : : Das macht das gleiche und ist etwas kürzer. Es ersetzt einfach CarriageReturn gegen "|" und Return gegen nichts. Danach wird es an den | getrennt und in ein Array geschriebn, das danach in die Listbox geschrieben wird.   ring RemoteFiles = Replace(Remotefiles,chr(13),"|") RemoteFiles = Replace(Remotefiles,chr(10),"") a = split(remotefiles,"|") for i = 0 to ubound(a) istremotefile.additem a(i) next i Mfg

Was bedeutet das ?	726	Björn Mankel	16.06.07 13:12
Re: Was bedeutet das ?	424	DerBaer	17.06.07 07:48
Re: Was bedeutet das ?	448	Björn Mankel	18.06.07 08:13
Re: Was bedeutet das ?	408	mst547	18.06.07 11:17
Re: Was bedeutet das ?	388	Björn Mankel	18.06.07 11:32

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