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
72
73
74
75
76
77
78
79
80
81
82
83
|
Private Sub Charger_Click()
Dim Car As String, Chaîne As String, Demi_Date As Date, Date_Mesure As Date
Dim Rst As DAO.Recordset
If Len(Dir(Répertoire & Fichier)) > 0 Then
Open Répertoire & Fichier For Input As #1
End If
Set Rst = CurrentDb.OpenRecordset("Table_Mesures")
With Rst
Do
Do Until Car = vbTab
On Error GoTo Sortie
Car = Input(1, #1)
Chaîne = Chaîne & Car
Loop
Demi_Date = DateAdd("s", Int(Replace(Chaîne, ".", ",") / 2), #1/1/1904#)
Date_Mesure = DateAdd("s", Int(Replace(Chaîne, ".", ",") / 2), Demi_Date)
For i = 1 To NbCapteurs
.AddNew
.Fields(0) = i
.Fields(1) = Date_Mesure
Chaîne = ""
Car = ""
Do Until Car = vbTab
Car = Input(1, #1)
Chaîne = Chaîne & Car
Loop
.Fields(2) = CDbl(Replace(Chaîne, ".", ","))
Chaîne = ""
Car = ""
Do Until Car = vbTab
Car = Input(1, #1)
Chaîne = Chaîne & Car
Loop
.Fields(3) = CDbl(Replace(Chaîne, ".", ","))
Chaîne = ""
Car = ""
Do Until Car = vbTab
Car = Input(1, #1)
If Car = Chr(13) Then Exit Do
Chaîne = Chaîne & Car
Loop
.Fields(4) = CDbl(Replace(Chaîne, ".", ","))
Chaîne = ""
Car = ""
.Update
Next i
Loop
Sortie:
End With
Close #1
End Sub
Private Sub Farfouiller_Click()
If IsNull(Répertoire) Then
Répertoire = OuvrirUnFichier(Me.Hwnd, "Où est le ficher contenant les enregistrements?", 1)
Répertoire = Left(Répertoire, Len(Répertoire) - Len(Dir(Répertoire)))
Fichier = Dir(Répertoire)
Else
Répertoire = OuvrirUnFichier(Me.Hwnd, "Où est le ficher contenant les enregistrements?", 1, , , Répertoire)
Répertoire = Left(Répertoire, Len(Répertoire) - Len(Dir(Répertoire)))
Fichier = Dir(Répertoire)
End If
End Sub
Private Sub Fichier_DblClick(Cancel As Integer)
Farfouiller_Click
End Sub
Private Sub Répertoire_DblClick(Cancel As Integer)
Farfouiller_Click
End Sub
Private Sub Voir_Click()
If Temps_sélectionné > 0 Then
DoCmd.OpenQuery "Un_temps"
DoCmd.MoveSize 1000, 0, 3000, 6000
End If
If Capteur_sélectionné > 0 Then
DoCmd.OpenQuery "Un_capteur"
DoCmd.MoveSize 4000, 0, 3000, 6000
End If
End Sub |
Importer des données depuis un fichier texte
) avec dans chaque table les colonnes Temps, Min, Max et Moyenne. Il faut donc que pour chaque fichier texte je puisse récupérer les 4 colonnes correspondantes au capteur. J'ai essayé d'importer un fichier texte dans access : premier problème, mon fichier texte est trop large (240*4 colonnes!). Y a-t-il une solution avec access?
) ou dois-je utiliser VBE (je ne connais pas du tout le langage et les fonctions
) ? Comme il y a beaucoup de fichiers texte et beaucoup de tables, j'aimerai "automatiser" au maximum le traitement des données.
Répondre avec citation
Partager