[R] Lire la ligne où se trouve la chaîne X

[Rancar]

Bonjour,

En fait, je coince sur un bête truc : lire le numéro de la ligne où se trouve la chaîne rechercher.
Je suppose que je dois utiliser FileReadLine et StringInStr mais je n'en sais pas plus ^^

J'ai essayé ceci mais ça ne fonctionne pas =/
Ici, je cherche la ligne qui contient la première chaîne "Cherche"

Code : Tout sélectionner

FileReadLine("blabla.txt",StringInStr("blabla.txt","Cherche",0,1))

Merci de votre aide et désolé pour la "débilité" de ma question

[yohan8]

Il me semble que la fonction FileReadLine ne te permet pas de "lire un numéro de ligne", mais plutot de "Lire une ligne dans son intégralité".

En revanche la fonction _FileReadToArray te permet de remplir un tableau avec chaque ligne de ton fichier.

[Rancar]

Merci pour votre réponse
Je vais creuser du côté de _FileReadToArray

[mikell]

Nan nan, FileReadLine était la bonne piste

Code : Tout sélectionner

$file = FileOpen("test.txt", 0)
$i = 0
$found = false
While 1
    $i += 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    If StringInStr($line,"cherche") Then 
        $found = true
        ExitLoop
    EndIf
WEnd
FileClose($file)
If $found Then MsgBox(0, "", "ligne  " & $i)

[Rancar]

Merci Mikell mais j'ai trouvé une autre solution :
_FileReadToArray fonctionne aussi comme ceci :

Code : Tout sélectionner

Local $ReadText
_FileReadToArray("blabla.txt",$ReadText)
For $x = 1 To $ReadText[0]
    If StringInStr($ReadText[$x],"Cherche",0,1) Then
        MsgBox(0,"","Ligne : "&$x)
    EndIf
Next
Exit

Laquelle est la plus efficace/ plus rapide ?

[mikell]

Efficacité identique, rapidité non (le fichier est intégralement lu dans une array puis l'array est relue) mais pour ce traitement-là la différence n'est pas significative

[Rancar]

Oki merci
Une dernière petite question qui n'a rien avoir (mais qui ne nécessite pas vraiment l'ouverture d'un nouveau sujet)
Comment analyser une chaîne et retirer les nombres ?
Ex : "blahk hfk hr4574ff jlfj" devient "4574" ? ^^
J'ai cherché du côté de StringRegExp mais je ne comprends rien

[yohan8]

L'avantage est que ton script est plus "propre" avec _FileReadToArray

J'ai cherché du côté de StringRegExp mais je ne comprends rien

[Rancar]

Certes mais il nécessite une include quand même

[mikell]

StringRegExp sert exactement à ça mais a une syntaxe bien personnelle

Code : Tout sélectionner

$txt = "blahk hfk hr4574ff jlfj"
$res = StringRegExp($txt, '\d+', 3)
Msgbox(0,"", $res[0])

[Rancar]

C'est parfait !
Merci à vous

Sujet résolu