Historique dans un fichier texte [Résolu]

[Daynvheur]

Envoyé par b.gaumard

10.208.24.11
10.208.24.111
[...]

Code :

Normal, normal !

Aniki a tout à fait trouvé d'où venait le soucis, que je n'avais pas prévu :

Code :

LigneLeft = Left(Ligne, MachineLen)

Si on regarde "10.208.24.111", et qu'on ne garde que la partie gauche correspondant à la longueur de "10.208.24.11", on obtient.. exactement la même valeur, les 12 premiers caractères étant "10.208.24.11" !

Il y a certainement la possibilité de regarder si ce comparatif fonctionnait autrement précédemment.

[b.gaumard]

je ne comprends pas ....

Comme ca ?

LigneLeft = Left(Ligne, InStr(Ligne, " "))

[Aniki]

On y est presque...
Pourquoi tu ne reprends qu'une partie de la ligne ?

Je ne veux pas être méchant mais la réponse est dans les posts précédants.
As-tu vraiment essayer de trouver la réponse ? As-tu fais des tests avec différents algo avant de venir demander ici ? Quel est ta méthode de travail ?
Qu'attends-tu de ce forum ?

[b.gaumard]

En reprenant ca, ca ne fonctionne pas :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
	Do While ficHistorique_op.AtEndOfStream <> True
 
		Ligne = ficHistorique_op.ReadLine
 
		LigneLeft = Left(Ligne, InStr(Ligne, " ") - 1)
 
		If LigneLeft = Machine Then
			Trouve = True
			'Wscript.Echo Ligne, , "Ligne"
			'Wscript.Echo Machine, , "Machine"
			ficHistorique_str = ficHistorique_str & Ligne & " --> " & PingState & vbCRLF
		ElseIf Ligne <> "" Then
			ficHistorique_str = ficHistorique_str & Ligne & vbCRLF
		End If	
	Loop

C'est vrai, travailler avec les fichier ce n'est pas trop mon dada.

Oui je fais des tests sur ma machine mais je n'arrive jamais au résultat attendu.

et comme la c'est un cas vraiement tordu, je n'arrive pas à modéliser la chose et à trouver

[Aniki]

Chez moi ca marche...

Il y a juste un petit problème si la ligne de l'historique lue est vide mais qui est facilement corrigeable en ajoutant un If...

Code :

1
2
3
4
5
		If Ligne <> "" Then
			LigneLeft = Left(Ligne, InStr(Ligne, " ") - 1)
		else
			LigneLeft = ""
		end If

Es-tu l'auteur du script initial ?

[b.gaumard]

Victoire ca semble fonctionner !!!!!! Merci !!!

Oui pour le script initial, c'est moi l'auteur, c'est juste un ping et une boucle donc ca va ... mais dès qu'il faut jouer avec des fichiers etc c'est plus la meme ....

[Daynvheur]

Pour la comparaison, effectivement.
Pour info, avec les différentes méthodes proposées dans la discussion :
- avec Left(Ligne, MachineLen)
127.0.0.1 : 127.0.0.11 ok --> nok
- avec Left(Ligne, InStr(Ligne, "_"))
127.0.0.1 : 127.0.0.11_ok --> nok
- avec Left(Ligne, InStr(Ligne, " ") - 1)
127.0.0.1 : 127.0.0.11 ok --> nok

La modélisation est simple :
- Un fichier texte contenant les noms de machines (uniques, forcément renseignées)
- Un fichier historique dont chaque ligne à visiter commence par un nom de machine (unique, potentiellement nul) et l'état des passages précédents
- La ligne de l'historique correspondant au nom d'une machine donnée est mise à jour en fonction du résultat d'une commande précédente (un ping) sous la forme d'un semi-booléen (string)

Le script peut certainement être modélisé ainsi :
Modélisation.PNG
Ou un truc du genre.

Pour éviter d'avoir à faire mumuse avec des fichiers directement, ce qui peut être encombrant, je remplace les "objet.WriteLine Truc" par des "WScript.Echo Truc" pendant les essais.