'+------------------------------------------------------------------------------------------+ '| Header: Bestimmen der bergabeparameter | '| AnzeigeCheck:|Il1 sind Alt-0124, Groes i, kleines L, Eins ߎę֚񱸩| Const Author="kleinenamen.Bas v017f 2007 by ytwinky, MD"' | '| (Tastenkombination: keine) | '| | '| Zweck : Fast ein SplitString :D ;-)) | '+------------------------------------------------------------------------------------------+ Declare Function List_Files(byVal FileSpec As String, byVal Attrib As Integer, byVal Titel As String="") As String Declare Function SubStr(byVal Liste As String, byVal Trenner As String, byVal Stelle As Integer) As String Const Attrib_ReadOnly = &h01 ' 1 Const Attrib_Hidden = &h02 ' 2 Const Attrib_System = &h04 ' 4 Const Attrib_Directory = &h10 '16 Const Attrib_Archive = &h20 '32 Const CrLf=!"\n\r", Lf=!"\n" Dim i As Integer Dim As String Liste=List_Files("*.*", 0, ""), s Print "Len(Liste)=" &Len(Liste) &" Liste=" &Liste For i=0 To 8 Print "i=" &i &" " &SubStr(Liste, Lf, i) Next Sleep Function List_Files(byVal FileSpec As String="", byVal Attrib As Integer, byVal Titel As String="") As String Dim As String s, gefunden=Dir(FileSpec, Attrib) '..es mu ja kein DateiName sein :D If Titel<>"" Then s=Titel &!"\n" Do s+=gefunden &!"\n" gefunden=Dir("", Attrib) Loop Until gefunden="" Function=s 'noch nicht fertig s="" 's lschen, kann ja ziemlich gro sein.. gefunden="" 'gefunden auch.. End Function Function SubStr(byVal Liste As String, byVal Trenner As String, byVal Stelle As Integer) As String Dim As Integer Aktuell=0, Ooops, ltr=Len(Trenner), Vorige=1, Gefunden If Stelle=0 Or Liste="" Or Trenner="" Or Instr(Liste, Trenner)=0 Then Return "" Do Ooops=Gefunden Gefunden=Instr(Gefunden+1, Liste, Trenner) Aktuell-=Gefunden<>0 If Aktuell=Stelle-1 Then Vorige=Gefunden+ltr If Aktuell=Stelle Then Exit Do Loop Until Gefunden=0 If Stelle>Aktuell Then Return Mid(Liste, IIF(Stelle-Aktuell>1, Len(Liste)+1, Ooops+ltr)) &Chr(0) Return Mid(Liste, Vorige, Gefunden-Vorige) End Function