Module Config_ID
Public ACTIV As Integer 'Déclaration
Public EMAIL As String 'Déclaration
Public MDP As String 'Déclaration
Public CONNEX_AUTO As Integer 'Déclaration
End module
'
Private Sub LoadVar(ByVal Var As String, ByVal Dat As String)
Select Case Var
Case "ACTIV"
ACTIV = Dat
Case "EMAIL"
EMAIL = Dat
Case "MDP"
MDP = Dat
Case "CONNEX_AUTO"
CONNEX_AUTO = Dat
End Select
End Sub
'
Dim Reader As New IO.StreamReader("URL DE VOTRE FICHIER")
'
While Not Reader.EndOfStream
End while
'
Dim Ligne As String = Reader.ReadLine
'
If Not Ligne.Contains("=") Then Continue While
' le caractère '=' est la valeur qui n'est pas tenue en compte.
If Not Ligne.Contains("#") Then Continue While
' le caractère '#' est la valeur qui n'est pas tenue en compte.
'
Dim LigneInfos() As String = Ligne.Split("=".ToCharArray, 2)
'
Dim Var As String = LigneInfos(0).ToUpper.Trim
Dim Dat As String = LigneInfos(1).Trim
'
If Dat = "" Then Continue While
'
LoadVar(Var, Dat)
'
While Not Reader.EndOfStream
Dim Ligne As String = Reader.ReadLine
' Si pendant la lecture, le programme arrive sur le caractère '=',
'alors il n'en tiendra pas compte
If Not Ligne.Contains("=") Then Continue While
' IDEM sauf que le caractère est #
If Not Ligne.Contains("#") Then Continue While
' le programme ne tiendra pas compte de deux espaces à coté de '='
Dim LigneInfos() As String = Ligne.Split("=".ToCharArray, 2)
Dim Var As String = LigneInfos(0).ToUpper.Trim
Dim Dat As String = LigneInfos(1).Trim
If Dat = "" Then Continue While
LoadVar(Var, Dat)
End While
'
Module Config_ID
Public ACTIV As Integer 'Déclaration
Public EMAIL As String 'Déclaration
Public MDP As String 'Déclaration
Public CONNEX_AUTO As Integer 'Déclaration
Private Sub LoadVar(ByVal Var As String, ByVal Dat As String)
Select Case Var
Case "ACTIV"
ACTIV = Dat
Case "EMAIL"
EMAIL = Dat
Case "MDP"
MDP = Dat
Case "CONNEX_AUTO"
CONNEX_AUTO = Dat
End Select
End Sub
Public Sub LoadConfig_ID()
Try
Dim Reader As New IO.StreamReader("DATA/CONNEX/Config.SN")
While Not Reader.EndOfStream
Dim Ligne As String = Reader.ReadLine
' Si pendant la lecture, le programme arrive sur le caractère '=',
'alors il n'en tiendra pas compte
If Not Ligne.Contains("=") Then Continue While
' IDEM sauf que le caractère est #
If Not Ligne.Contains("#") Then Continue While
' le programme ne tiendra pas compte de deux espaces à coté de '='
Dim LigneInfos() As String = Ligne.Split("=".ToCharArray, 2)
Dim Var As String = LigneInfos(0).ToUpper.Trim
Dim Dat As String = LigneInfos(1).Trim
If Dat = "" Then Continue While
LoadVar(Var, Dat)
End While
End Sub
End Module
Avis de décès, Carte de voeux, Bricolage, Coloriages, Cinéma, Coiffure, Cuisine, Déco, Dictionnaire, Horoscope, Jeux en ligne, Programme TV, Recettes, Restaurant, SMIC, Test débit, Voyage, Signification prénom