Discussion :

[Alecine]

Bonjour je suis débutant en VB mon patron me demande quelque chose d'un peu complexe pour moi ! :s
J'ai quand meme déja délimité les grandes étapes.
JE vous explique on a un vieu logiciel qui peut recevoir des macros VB
On doit grace a cette macro remplir la configuration nécessaire a une connexion (Ca c'est bon j'y arrive)

Donc premierement, je dois trouver le hostname de la machine et ensuite le comparer a un fichier texte de cette forme :

NOM_POSTE1 TUTU1
NOM_POSTE2 TUTU2
NOM_POSTE3 TUTU3

Donc en ayant récupéré le hostname(NOM_POSTE1) il faut que j'arrive a récupérer la valeur associée (TUTU1) pour ensuite copier cette valeur dans ma config que j'arrive a faire plus haut

Donc voila je sais pas si ca vous parait simple ou pas !
J'espere que vous pourrez m'aider

[OhMonBato]

Si je comprends bien, il suffit de récupérer TUTU1 par exemple ?

en utilisant la fonction Instr :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
maVar = "NOM_POSTE1 TUTU1"
maChaine = mid(mavar,instr(mavar," ")+1)

On pourrait aussi utiliser la fonction Split (regarde l'aide à son sujet)

[Alecine]

Oui voila mais avant ca je dois reussir a choper le hostname :s
S'il récupere NOM_POSTE1 ,je vais devoir mettre ici : .Hostname = "NOM_POSTE1"
Et ensuite aller dans le fichier chercher la valeur qui lui est affectée et la copier ici : .DeviceName = "TUTU1"

[OhMonBato]

Mais c'est quoi la question exactement ? recupérer "NOM_POSTE1" dans ta chaine exemple ? Tu l'as récupéré cette chaine ou pas ? elle vient d'où ?

Faut expliquer un peu mieux !

[Alecine]

Désolé c'est difficile a expliquer.


Il faut que j'arrive a récupérer le hostname de la machine (le nom du poste sur lequel se lancera la macro) une fois récupérée il faut que je puisse aller chercher la valeur correpondante dans mon fichier

j'essaye un exemple

Je récupère la valeur NOM_POSTE1 ensuite je vais chercher mon fichier texte je le lis et dès que je trouve NOM_POSTE1 je cherche la valeur associée.
Il faut ensuite que je copie cette valeur (ici TUTU1) dans .DeviceName (donc cela donnerait .DeviceName = "TUTU1"

Plus clair ou toujours aussi flou ?

[ucfoutu]

Parcourur, ligne par ligne, un fichier texte plat jusqu'à y trouver une ligne commençant par ce que tu cherches est toujours possible (des centaines d'exemple sur ce forum !)
Une fois la ligne trouvée : lire ce qui se trouve derrière l'espace est simple (et la solution t'a été donnée plus haut ...)


Un fichier plat me parait là un peu lourd, toutefois, ... je donnerais la préférence à un fichier texte (écrit par Put) structuré en base de données ...

[zazaraignée]

Tu as déjà réussi à lire le fichier ? Si oui

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim NomHoteEtValeurAssociee() As String, LigneFichier As String
' autres déclarations pour l'ouverture et la lecture du fichier texte
Dim NumFichier As Integer, NomFichier As String
NumFichier = FreeFile
' Choix du fichier 
' peut se faire avec un CommonDialog - voir les Composants supplémentaires
NomFichier = "C:\Chemin\nomDuFichier.txt" 
' Code de l'ouverture et de lecture du fichier du fichier
Open NomFichier For Input As #NumFichier  ' il me semble...
Do While Not EOF(NumFichier)
    Input NumFichier, LigneFichier
    ' C'est ici que ça devient intéressant
    ' Sépare la ligne sur l'espace
    '                          -v-v-v-v-v-v-v-v-v-v-v-
    NomHoteEtValeurAssociee = Split(LigneFichier, " ") 
    '                          -^-^-^-^-^-^-^-^-^-^-^-
    Debug.Print NomHoteEtValeurAssociee(0), NomHoteEtValeurAssociee(1)
Loop
Close NumFichier

Cet exemple lit le fichier ligne par ligne et affiche dans la fenêtre d'exécution (menu Affichage) le contenu de chaque ligne placé dans un tableau nommé NomHoteEtValeurAssociee.

[Alecine]

Merci j'ai essayé d'adapter le code pour moi mais j'ai une erreur a cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Input NumFichier, LigneFichier

En tout cas c'est sympa de se pencher sur le problème avec moi ^^

[ucfoutu]

Bonjour,

tu aurais quand même pu corriger toi-même (ouvre donc ton aide en ligne de temps à autre...)
C'est Line Input et non Input
et n'oublie pas de déclarer LigneFichier as string avant

[ProgElecT]

Ma petite contribution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cela n'empechant pas que les propositions deja faites par les copains sont chacune valable, le detail (commentaire dans le code) pouvant peut être d'aider.

je suis débutant en VB

[Alecine]

Merci beaucoup a tous je vais maintenant essayer de mettre tout ca en forme !
Merci pour le coup de pouce ^^