1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71
| Option Compare Database
Private Sub charge()
Dim ligne, NUMFDC, NOMFDC, ADD1FDC, ADD2FDC, ADD3FDC, ADD4FDC, CODEPOSTFDC, LOCDISTFDC, NUMTELFDC, NUMFAXFDC, NOMPRESFDC, PRENOMPRESFDC, EMAILFDC, WEBSITEFDC, BANQ1FDC, RIB1FDC, BANQ2FDC, RIB2FDC, DATEMAJFDC As String
Open "C:\Documents and Settings\etienne\Bureau\calculcle\Federations_2008_12_01.txt" For Input As #1
Line Input #1, ligne ' pour eviter la premiere ligne
While Not EOF(1)
Line Input #1, ligne
NUMFDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(NUMFDC) + 1)))
NOMFDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(NOMFDC) + 1)))
ADD1FDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(ADD1FDC) + 1)))
ADD2FDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(ADD2FDC) + 1)))
ADD3FDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(ADD3FDC) + 1)))
ADD4FDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(ADD4FDC) + 1)))
CODEPOSTFDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(CODEPOSTFDC) + 1)))
LOCDISTFDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(LOCDISTFDC) + 1)))
NUMTELFDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(NUMTELFDC) + 1)))
NUMFAXFDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(NUMFAXFDC) + 1)))
NOMPRESFDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(NOMPRESFDC) + 1)))
PRENOMPRESFDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(PRENOMPRESFDC) + 1)))
EMAILFDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(EMAILFDC) + 1)))
WEBSITEFDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(WEBSITEFDC) + 1)))
BANQ1FDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(BANQ1FDC) + 1)))
RIB1FDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(RIB1FDC) + 1)))
BANQ2FDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(BANQ2FDC) + 1)))
RIB2FDC = Left(ligne, (len_enreg(ligne)))
ligne = Right(ligne, (Len(ligne) - (Len(RIB2FDC) + 1)))
DATEMAJFDC = ligne
Wend 'OK
Close #1
End Sub
Private Function len_enreg(ByVal a As String) As Integer ' renvoi la taille de l'enregistrement en cours ( jusque ";")
Dim cpt As Integer
cpt = 1
While Mid(a, cpt, 1) <> ";"
cpt = cpt + 1
Wend
len_enreg = cpt - 1
End Function
Sub MAJ()
charge
End Sub |
Partager