none
Utilisation d'un fichier externe RRS feed

  • Question

  • Bonjour,

    Il est possible dans certains langages d'utiliser un fichier "include". J'aimerai utilser cette façon de faire avec VB Net mais comment ?

    Mon fichier contiendrait par exemple  :

    MDP = Toto

    Compte = Titi

    J'aimerai pouvoir récupérer les valeurs des deux variables MDP et Compte.

    Pourriez-vous m'indiquer comment faire ?

    Merci de vos réponses


    Jacques
    Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci

    lundi 12 août 2013 17:17

Réponses

  • Suite...

    Si ma réponse t'es utile, merci de cliquer sur ces dernières en haut à gauche (voter) afin de m'attribuer des points.

    Voici le code :

    Option Explicit On
    Public Class Form1
      Dim logo As String = ""
      Dim mdp As String = ""
    
      Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim p As New System.IO.StreamWriter(My.Application.Info.DirectoryPath & "\tonFichier.txt")
        p.WriteLine("CONX=toto")
        p.WriteLine("MDP=titi")
        p.Close() ' POUR L'EXEMPLE, CREATION EN ACRASEMENT DU FICHIER
      End Sub
    
      Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Dim alpha As String = ""
        Dim position As Integer = 0
        Dim p As New System.IO.StreamReader(My.Application.Info.DirectoryPath & "\tonFichier.txt")
        alpha = p.ReadLine()
        position = InStr(1, alpha, "=", CompareMethod.Text)
        logo = Trim(Mid(alpha, position + 1))
        alpha = p.ReadLine()
        position = InStr(1, alpha, "=", CompareMethod.Text)
        mdp = Trim(Mid(alpha, position + 1))
        p.Close()
        MsgBox(logo & vbLf & vbLf & mdp, vbInformation)
      End Sub
    
    End Class

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire


    • Proposé comme réponse EhJoe lundi 12 août 2013 22:28
    • Marqué comme réponse Paraglider mardi 13 août 2013 01:25
    lundi 12 août 2013 22:27

Toutes les réponses

  • Bonjour Paraglier,

    Voici le code, est-ce ceci que tu veux ?

    Option Explicit On
    Public Class Form1
    
      Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim p As New System.IO.StreamWriter(My.Application.Info.DirectoryPath & "\tonFichier.txt")
        p.WriteLine("toto")
        p.WriteLine("titi")
        p.Close() ' POUR L'EXEMPLE, CREATION EN ACRASEMENT DU FICHIER
      End Sub
    
      Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Dim logoMdp As String = ""
        Dim p As New System.IO.StreamReader(My.Application.Info.DirectoryPath & "\tonFichier.txt")
        logoMdp = p.ReadLine() & vbCrLf
        logoMdp = logoMdp & p.ReadLine()
        p.Close()
        ' LECTURE DU FICHIER DANS VARIABLE 2 LIGNES logoMdp
        MsgBox(logoMdp, vbInformation)
      End Sub
    
    End Class

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire


    lundi 12 août 2013 21:33
  • Bonjour Joseph,

    J'ai testé le code c'est correct.

    J'aimerai cependant ne récupérer que les valeurs.

    logoMdp = Toto

    logoCompte = Titi

    Comment extraire juste les valeurs pour chacune des variables puisque au retour on a

    CONX=Toto

    MDP=Titi

    Merci de ton aide.


    Jacques
    Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci

    lundi 12 août 2013 22:13
  • Suite...

    Si ma réponse t'es utile, merci de cliquer sur ces dernières en haut à gauche (voter) afin de m'attribuer des points.

    Voici le code :

    Option Explicit On
    Public Class Form1
      Dim logo As String = ""
      Dim mdp As String = ""
    
      Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim p As New System.IO.StreamWriter(My.Application.Info.DirectoryPath & "\tonFichier.txt")
        p.WriteLine("CONX=toto")
        p.WriteLine("MDP=titi")
        p.Close() ' POUR L'EXEMPLE, CREATION EN ACRASEMENT DU FICHIER
      End Sub
    
      Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Dim alpha As String = ""
        Dim position As Integer = 0
        Dim p As New System.IO.StreamReader(My.Application.Info.DirectoryPath & "\tonFichier.txt")
        alpha = p.ReadLine()
        position = InStr(1, alpha, "=", CompareMethod.Text)
        logo = Trim(Mid(alpha, position + 1))
        alpha = p.ReadLine()
        position = InStr(1, alpha, "=", CompareMethod.Text)
        mdp = Trim(Mid(alpha, position + 1))
        p.Close()
        MsgBox(logo & vbLf & vbLf & mdp, vbInformation)
      End Sub
    
    End Class

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire


    • Proposé comme réponse EhJoe lundi 12 août 2013 22:28
    • Marqué comme réponse Paraglider mardi 13 août 2013 01:25
    lundi 12 août 2013 22:27
  • Bonjour Joseph,

    Un grand merci.


    Jacques
    Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci

    mardi 13 août 2013 01:28