1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| Dim CheminNomFichier As String
Dim NumFich As Integer
Dim Msg$
CheminNomFichier = "C:\PersoFrancis\LesDonnéesRserv.txt"
Msg$ = ""
NumFich = FreeFile
Open CheminNomFichier For Input As #NumFich
'recuperation du fichier en entier dans la variable Msg$
Msg$ = Input(FileLen(CheminNomFichier), NumFich)
Close #NumFich
If Msg$ = "" Then
MsgBox "le fichier est vide", vbCritical
Unload Me
End If
Dim leHostname As String
'tu sais deja recuperer sa, moi je le met dans une variable pour l'exemple
leHostname = "NOM_POSTE1" & " " 'je lui ajoute l'espace separant NOM_POSTE1 de la valeur recherchée
Dim Deb As Long, Fin As Long
'pour trouver la position du debut du mot "NOM_POSTE1 "
Deb = InStr(Msg$, leHostname)
'se placer au debut de la valeur recherchée, (position + sa longueur)
Deb = Deb + Len(leHostname)
Fin = Deb 'pour rechercher a partir du debut de la valeur recherchée,
'non pas du debut de la variable qui contient le contenu du fichier
'vbCrLf, saut de ligne, tout de suite apres la valeur recherché
Fin = InStr(Fin, Msg$, vbCrLf)
Dim valeurAssocier As String
'Extraction de la valeur recherchée
valeurAssocier = Mid(Msg$, Deb, Fin - Deb)
.HostName = Left(leHostname, Len(leHostname) - 1) 'pour enlever l'espace
.DeviceName = valeurAssocier |
Partager