COMMANDLINE$ auswerten

Übersicht

BlitzBasic

Allgemein

	Florian Betreff: COMMANDLINE$ auswerten	Mi, Mai 25, 2005 20:35 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function ArgV$(StringX$,Zeichen$,arg,Parameterauslassen=0,Leerzeichen=0) Start=1 StringX$=StringX$+Zeichen$ If Zeichen$=\" \" Then Parameterauslassen=0 If Parameterauslassen=-1 Then While Instr(StringX$,Zeichen$,Start) ;Parameter auslassen index=index+1 If index=arg Then If Leerzeichen=-1 Then Return Mid$(StringX$,Start,Instr(StringX$,Zeichen$,Start)-Start) Else Return Trim$(Mid$(StringX$,Start,Instr(StringX$,Zeichen$,Start)-Start)) End If Else Start=Instr(StringX$,Zeichen$,Start)+1 End If Wend Else While Instr(StringX$,Zeichen$,Start) If Start<Instr(StringX$,Zeichen$,Start) Then index=index+1 If index=arg Then If Leerzeichen=-1 Then Return Mid$(StringX$,Start,Instr(StringX$,Zeichen$,Start)-Start) Else Return Trim$(Mid$(StringX$,Start,Instr(StringX$,Zeichen$,Start)-Start)) End If Else Start=Instr(StringX$,Zeichen$,Start)+1 End If Else Start=Start+1 End If Wend End If End Function Function ArgC%(StringX$,Zeichen$,Parameterauslassen=-1) If StringX$=\"\" Then Return Start=1 StringX$=StringX$+Zeichen$ If Zeichen$=\" \" Then Parameterauslassen=0 If Parameterauslassen=-1 Then While Instr(StringX$,Zeichen$,Start) ;Parameter auslassen If Start<Instr(StringX$,Zeichen$,Start) Then index=index+1 Start=Instr(StringX$,Zeichen$,Start)+1 Else Start=Start+1 End If Wend Else While Instr(StringX$,Zeichen$,Start) index=index+1 Start=Instr(StringX$,Zeichen$,Start)+1 Wend End If Return index End Function Function ArgTest(StringX$,Zeichen$,Paramenter$,Leerzeichen=0) If StringX$=\"\" Then Return Start=1 StringX$=StringX$+Zeichen$ If Zeichen$=\" \" Then Parameterauslassen=0 While Instr(StringX$,Zeichen$,Start) ;Parameter auslassen If Leerzeichen=-1 Then If Mid$(StringX$,Start,Instr(StringX$,Zeichen$,Start)-Start)=Paramenter$ Then Return -1 End If Else If Trim$(Mid$(StringX$,Start,Instr(StringX$,Zeichen$,Start)-Start))=Paramenter$ Then Return -1 End If End If Start=Instr(StringX$,Zeichen$,Start)+1 Wend End Function

Florian

Betreff: COMMANDLINE$ auswerten

Mi, Mai 25, 2005 20:35
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]


Function ArgV$(StringX$,Zeichen$,arg,Parameterauslassen=0,Leerzeichen=0)
 Start=1 
 StringX$=StringX$+Zeichen$

 If Zeichen$=\" \" Then Parameterauslassen=0 

 If Parameterauslassen=-1 Then 
   While Instr(StringX$,Zeichen$,Start) ;Parameter auslassen 
    index=index+1
    If index=arg Then  
      If Leerzeichen=-1 Then 
        Return Mid$(StringX$,Start,Instr(StringX$,Zeichen$,Start)-Start)
       Else           
        Return Trim$(Mid$(StringX$,Start,Instr(StringX$,Zeichen$,Start)-Start))
      End If   
     Else
      Start=Instr(StringX$,Zeichen$,Start)+1 
    End If 
   Wend             
  Else               
   While Instr(StringX$,Zeichen$,Start)
    If Start<Instr(StringX$,Zeichen$,Start) Then         
      index=index+1
      If index=arg Then  
        If Leerzeichen=-1 Then 
          Return Mid$(StringX$,Start,Instr(StringX$,Zeichen$,Start)-Start)
         Else
          Return Trim$(Mid$(StringX$,Start,Instr(StringX$,Zeichen$,Start)-Start)) 
        End If
       Else
        Start=Instr(StringX$,Zeichen$,Start)+1 
      End If
     Else
      Start=Start+1 
    End If                      
   Wend 
 End If 
End Function 

Function ArgC%(StringX$,Zeichen$,Parameterauslassen=-1)
 If StringX$=\"\" Then Return  
 Start=1 
 StringX$=StringX$+Zeichen$

 If Zeichen$=\" \" Then Parameterauslassen=0 

 If Parameterauslassen=-1 Then 
   While Instr(StringX$,Zeichen$,Start) ;Parameter auslassen 
    If Start<Instr(StringX$,Zeichen$,Start) Then    
      index=index+1
      Start=Instr(StringX$,Zeichen$,Start)+1
     Else
      Start=Start+1 
    End If 
   Wend 
  Else
   While Instr(StringX$,Zeichen$,Start) 
    index=index+1
    Start=Instr(StringX$,Zeichen$,Start)+1 
   Wend 
 End If

 Return index  
End Function

Function ArgTest(StringX$,Zeichen$,Paramenter$,Leerzeichen=0)

 If StringX$=\"\" Then Return  
 Start=1 
 StringX$=StringX$+Zeichen$

 If Zeichen$=\" \" Then Parameterauslassen=0 

 While Instr(StringX$,Zeichen$,Start) ;Parameter auslassen 
  If Leerzeichen=-1 Then 
    If Mid$(StringX$,Start,Instr(StringX$,Zeichen$,Start)-Start)=Paramenter$ Then
     Return -1
    End If 
   Else
    If Trim$(Mid$(StringX$,Start,Instr(StringX$,Zeichen$,Start)-Start))=Paramenter$ Then
     Return -1
    End If 
  End If
  Start=Instr(StringX$,Zeichen$,Start)+1    
 Wend
End Function

	Hummelpups	Mi, Mai 25, 2005 20:52 Antworten mit Zitat
wie wärs mit ner beschreibung? Nicht umsonst hast du die Funktion hier rein gestellt. Willst du das ich mir die Funktion erst durchlesen muss um zu verstehen was der Kram macht? Meinst du dann hätte ich sie nicht auch selber schreiben können? Meinst du, Projekte werden ohne Kommentar und Beschreibung released? Meinst du das der Threadname "COMMANDLINE$ auswerten" gut gewählt ist obwohl sich durch print commandline$ das Problem auch gelöst hätte? Bzw. weißt du wie Leute ihre Parameter weiter geben? Naja, Beschreibung wäre ganz toll IMurDOOM
blucode - webdesign - Ressource - NetzwerkSim BlitzBasic 2D - BlitzMax - MaxGUI - Monkey - BlitzPlus

Hummelpups

Mi, Mai 25, 2005 20:52
Antworten mit Zitat

wie wärs mit ner beschreibung?
Nicht umsonst hast du die Funktion hier rein gestellt.

Willst du das ich mir die Funktion erst durchlesen muss um zu verstehen
was der Kram macht?

Meinst du dann hätte ich sie nicht auch selber schreiben können?

Meinst du, Projekte werden ohne Kommentar und Beschreibung
released?

Meinst du das der Threadname "COMMANDLINE$ auswerten" gut
gewählt ist obwohl sich durch print commandline$ das Problem
auch gelöst hätte? Bzw. weißt du wie Leute ihre Parameter weiter
geben?

Naja, Beschreibung wäre ganz toll Wink

IMurDOOM

blucode - webdesign - Ressource - NetzwerkSim
BlitzBasic 2D - BlitzMax - MaxGUI - Monkey - BlitzPlus