Chemin dans fichier Text

Résolu
vinvinsylvain Messages postés 36 Date d'inscription dimanche 8 octobre 2006 Statut Membre Dernière intervention 12 mars 2010 - 31 juil. 2009 à 11:41
vinvinsylvain Messages postés 36 Date d'inscription dimanche 8 octobre 2006 Statut Membre Dernière intervention 12 mars 2010 - 1 août 2009 à 15:58
Bonjour
je recherche comment faire pour quand je clique sur une Picture, celle ci ouvre un fichier txt, va à une ligne spécifique et ouvre le fichier dont le chemin serra mis dans la ligne.

Fichier txt:

bouton1[tabulation]c:\procédure.txt
voici un début de code que j'ai trouver:
   Open "C:\Rapport événement\Base de donnée liens.txt" For Input As #vbTab
While Not EOF(1)
Line Input #1, B$
Label11 = B$
Wend
Close #1
        Shell Label11.Caption, vbMaximizedFocus ' End Sub


quelqu'un peu m'aider?

10 réponses

vinvinsylvain Messages postés 36 Date d'inscription dimanche 8 octobre 2006 Statut Membre Dernière intervention 12 mars 2010
1 août 2009 à 15:58
oui excuser moi j'ai juste recopier mon programme sans rectifier le vert voici le bon:
Private Sub Picture7_Click()
Dim Adresse As String
Dim Contenu As String
Dim Ligne() As String
Dim n As Integer

'adresse du fichier à lire
Adresse = "C:\Rapport événement\Base de donnée liens.txt"
 
If Dir(Adresse) <> "" Then
    Contenu = Space(FileLen(Adresse))
    
    'réccupère le contenu du fichier
    Open Adresse For Binary As #1
        Get #1, , Contenu
    Close #1
    
    Ligne = Split(Contenu, vbTab)  '"découpe" chaque ligne
    
    n = 0 'attention : la première ligne a l'indice 0


'vérifiction de la présence du reseau
If Dir("R:\DAU\DOSSIERS PALAIS DES DUCS\LOG\test reseau.txt") <> vbNullString Then

        'si réseau exitant alors on peut ouvrire
         Shell Ligne(n), vbMaximizedFocus '
Else

        'si réseau non exitant alors message 
    Call MsgBox("ATTENTION pas de connection réseau, vous ne pouvez pas utiliser le programme!")
End If
End If

End Sub



voilà le bon code, merci a tous
3
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
31 juil. 2009 à 11:59
Dim sBuffer As String
Dim nPos as Long
Dim FF As Integer
    FF = FreeFile
    Open "C:\Rapport événement\Base de donnée liens.txt" For Input As #FF
        sBuffer = Input(LOF(FF), FF
    Close #FF

    nPos = InStr(sBuffer, vbTab)
    If nPos Then
        sBuffer = Mid$(sBuffer, nPos+1)
        Label11.Caption = sBuffer
        Shell sBuffer, vbMaximizedFocus
    End If


Renfield - Admin CodeS-SourceS - MVP Visual Basic
0
vinvinsylvain Messages postés 36 Date d'inscription dimanche 8 octobre 2006 Statut Membre Dernière intervention 12 mars 2010
31 juil. 2009 à 12:20
je suis désoler mais sa ne fonctionne pas

il veut ouvrire le chemin:
cheminbouton1c:\procédure.txt
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
31 juil. 2009 à 12:33
je pense que tu as des espaces et non une tabulation comme séparation, dans ton fichier texte


Renfield - Admin CodeS-SourceS - MVP Visual Basic
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
vinvinsylvain Messages postés 36 Date d'inscription dimanche 8 octobre 2006 Statut Membre Dernière intervention 12 mars 2010
31 juil. 2009 à 12:43
voici mon fichier txt
Nom[tab]chemin
bouton1[tab]C:\Program Files\Internet Explorer\iexplore.exe
bouton2[tab]C:\Program Files\Topgard.exe
bouton3[tab]C:...
0
jmf0 Messages postés 1566 Date d'inscription mardi 26 décembre 2000 Statut Membre Dernière intervention 5 avril 2013 8
31 juil. 2009 à 15:07
Bonjour,

ta demande est incompréhensible en l'état ...
Veux-tu bien nous préciser :
- quelle appli a écrit le fichier texte (et à partir de quoi)
- si l'appli contenant l'image est la tienne ou externe
0
vinvinsylvain Messages postés 36 Date d'inscription dimanche 8 octobre 2006 Statut Membre Dernière intervention 12 mars 2010
31 juil. 2009 à 15:21
Je me suis perdu moi même lol

le fichier txt est crée par le bolc note
l'image, ben les images me font mon menu de mon application.
Chaques images ont un lien qui ouvre une application (internet explore, google eartch, méssagerie etc...)

mon sucie s'est que si on change le chemin d'accès des ces applications ma propre application que je suis entrain de créer ne serra plus valide, tout les liens seront inutile.

S'est pour cela que je voulais que ces liens soit incris dans un fichier txt dont on pourrai changer à voloter le chemin des applications

voilà je pense avoir tout dis, du moin je le pense lol
0
jmf0 Messages postés 1566 Date d'inscription mardi 26 décembre 2000 Statut Membre Dernière intervention 5 avril 2013 8
31 juil. 2009 à 15:28
Bon...

Toujours assez peu clair ...
Une suggestion : ouvre :
-Ton aide en ligne sur le mot PaintPicture
- le moteur de recherche de ce forum sur le mot ShellExecute

L'un ou l'autre (l'unb des deux selon ton cas) est la réponse à ta question.
0
vinvinsylvain Messages postés 36 Date d'inscription dimanche 8 octobre 2006 Statut Membre Dernière intervention 12 mars 2010
31 juil. 2009 à 23:09
J'ai trouver:

Private Sub Picture7_Click()
Dim Adresse As String
Dim Contenu As String
Dim Ligne() As String
Dim n As Integer

'adresse du fichier à lire
Adresse = "C:\Rapport événement\Base de donnée liens.txt"
 
If Dir(Adresse) <> "" Then
    Contenu = Space(FileLen(Adresse))
    
    'réccupère le contenu du fichier
    Open Adresse For Binary As #1
        Get #1, , Contenu
    Close #1
    
    Ligne = Split(Contenu, vbTab)  '"découpe" chaque ligne
    
    n = 0 'attention : la première ligne a l'indice 0
    MsgBox Ligne(n) 'affiche la 6eme ligne

'If Dir("R:\...\LOG\test reseau.txt") <> vbNullString Then
        'Le fichier existe
        Shell Ligne(n) ' "C:\Program Files\GCS\TopGuard Patrol\Bin\TopGuard.exe vbMaximizedFocus"
'Else
        'Le fichier est inexistant
       ' Call MsgBox("ATTENTION pas de connection réseau, vous ne pouvez pas utiliser le TopGard !")
End If
End Sub



merci a tous
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
1 août 2009 à 11:05
n = 0 'attention : la première ligne a l'indice 0
MsgBox Ligne(n) 'affiche la 6eme ligne

j'ai pas tout pigé... pouquoi 6 ??


Renfield - Admin CodeS-SourceS - MVP Visual Basic
0
Rejoignez-nous