parser!! à l'aide!

[drill]

J'ai un un texte qui se présente de la manière qui suit : ShowPlay WaveSpeak Hello! Kiny at your service! <WEB_LINK,Intro_suite,Continue?> Pour chaque ligne, le premier mot est l'action et le reste de la ligne est le paramètres.... J'aimerais récupérer chaque action et son paramètre associé dans un tableau.Comment dois-je faire?Merci de votre aide!

[oguruma]

bien de manière simple voici la méthode si tu connais le LS tu devrais t'en sortircode brut de fonderie... non testéDim fichier as stringdim cmd as variantdim l as integeropen fichier for input as 1while not eof(1)redim cmd(1)line input #1, lignecmd=parserSpace(ligne)'// cmd(0) donnera la commande'// cmd(1) donnera le paramif cmd(0)<>Null then'// après ton traitement...end ifwendfunction parserSpace(ligne as string) as variantDim p as integerdim array as variantdim l as integeron error goto handlerredim array(1)l = len(ligne)p=instr(ligne," ") '// voir syntaxe exacte pour l'odre des paramètre car je ne m'en souviens jamaisif p>0 then'// récup le verbearray(0)=left$(ligne,p-1)'// récup le paramarray(1)=right$(ligne,l-p)end ifparserSpace=arrayexit functionhandler:msgbox "erreur parser " & err & " " & error$ & " ligne " & erl,16,"parser"redim array(1)parserSpace=arrayresume finfin:end function

[drill]

merci beaucoup! )

[Droad]

Après la bataille, mais bon, au moins j'ai pas oublié le Close Type TCommand name As String param As StringEnd TypeSub Initialize On Error Goto handle_error Dim ff As Integer, filename As String, ln As String Dim cmd As TCommand ff% = Freefile filename$ = "c:\temp\data.txt" Open filename$ For Input As ff% While Not Eof(ff%) Line Input #ff%, ln$ cmd.param = Strright(ln$, " ") If Len(cmd.param)=0 Then cmd.name = ln$ Else cmd.name = Strleft(ln$, " ") End If If Len(cmd.name)>0 Then Select Case Ucase$(cmd.name) Case "SHOW": Print "Showing" Case "PLAY": Print "Playing: " & cmd.param Case "SPEAK": Print "Speaking: " & cmd.param Case Else: Print "format c:" End Select End If Wend done: Close #ff% Exit Sub handle_error: Msgbox Error$ & " (line " & Erl & ")", 16, "Damned !" Resume doneEnd Sub[%sig%]

[oguruma]

ahahah oui c'est vrai.... tu fais bien de le dire mes excuses pour cet oubli de close

[oguruma]

oui bonne remarque de droad j'ai oublié le close en fin de procédure... toutes mes excuses