Chemin dans fichier Text

Résolu
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010
-
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010
-
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

Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010

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
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
73
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
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010

je suis désoler mais sa ne fonctionne pas

il veut ouvrire le chemin:
cheminbouton1c:\procédure.txt
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
73
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
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010

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:...
Messages postés
1566
Date d'inscription
mardi 26 décembre 2000
Statut
Membre
Dernière intervention
5 avril 2013
7
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
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010

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
Messages postés
1566
Date d'inscription
mardi 26 décembre 2000
Statut
Membre
Dernière intervention
5 avril 2013
7
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.
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010

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
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
73
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