[R] Aller chercher info dans un fichier INI

[networe]

Bonjour,

J'aimerai racourcir ceci :

If StringInStr($list[$s][0],"www.google.ca") Then
$lientrue = 1
EndIf
If StringInStr($list[$s][0],"www.google.com") Then
$lientrue = 1
EndIf
If StringInStr($list[$s][0],"www.google.fr") Then
$lientrue = 1
EndIf

J'aimerai pouvoir remplacer ces 3 lignes (Qui pourront facilement devenir 500 lignes..) par une seule.
Chaque lien sera écrit dans un fichier .ini exemple

http://www.google.ca
http://www.google.com
http://www.google.fr

Ca porurait ressembler à un truc du genre
If StringInStr($list[$s][0],"IniRead("monfichier.ini")") Then
$lientrue = 1
EndIf

Merci d'avance

[jbnh]

J'ai pas testé mais vla un exemple :

Code : Tout sélectionner

For $i = 1 to 3 Step 1
    $var = IniRead("myfile.ini", "site", "Key"&$i, "NotFound")
    If StringInStr($list[$s][0],$var) Then
    $lientrue = 1
    EndIf
Next

ini :

[site]
Key1=www.google.ca
Key2=www.google.com
Key3=www.google.fr

[networe]

Merci cela marche très bien

J'aimerai simplement ne pas avoir à modifier

For $i = 1 to 3

Si j'ajoute 5 sites je devrai donc changer For $i = 1 to 8

[Jerome]

Vous devriez chercher du côté de :

Code : Tout sélectionner

; fonction qui calcule le nombre de ligne contenu dans un fichier
Global $NumberoftLines = _FileCountLines($Fichier)
 

$Fichier étant votre fichier ini.

[jbnh]

@networe : oui la boucle doit aller de 1 à nombre max de test.

N'oublie pas de mettre [R] si pb résolu

[networe]

Merci Jérome et jbnh

[Tlem]

@networe
33 messages et vous ne savez toujours pas utiliser les balises de code !!!

--> Merci de rajouter les balises de code dans vos messages.

[davidc]

Bonsoir,

Sinon tu peut aussi rajouter dans ton fichier ini le nombre de sites.
[SITE]

NB_SITE = 3
SITE1= ....
SITE2= ....
SITE3= .....

le code devient alors:

Code : Tout sélectionner

$nbSite = IniRead("myfile.ini", "SITE", "NB_SITE", "NotFound")

For $i = 1 to $nbSite Step 1
    $var = IniRead("myfile.ini", "SITE", "SITE"&$i, "NotFound")
    If StringInStr($list[$s][0],$var) Then
    $lientrue = 1
    EndIf
Next