chemin dans fichier TextRésolu

Question

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?

vinvinsylvain · Accepted Answer

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 est 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

Renfield · Answer

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

vinvinsylvain · Answer

je suis désoler mais sa ne fonctionne pas

il veut ouvrire le chemin:
cheminbouton1c:\procédure.txt

Renfield · Answer

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

vinvinsylvain · Answer

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:...

jmf0 · Answer

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

vinvinsylvain · Answer

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

jmf0 · Answer

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.

vinvinsylvain · Answer

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 est 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

Renfield · Answer

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

Chemin dans fichier Text

10 réponses

Votre réponse

Discussions similaires