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
|
123456789101112 | Private Sub Form_Load()
Dim vQuestion As Variant
'on déclare une variable de type fichier
Dim File1 As File
'on lui applique l'objet File
Set File1 = CreateObject("FileCtl.File")
'on créer le fichire "R-W.txt"
Call File1.Open(App.Path & "R-W.txt", fsModeOutput, fsAccessWrite, fsLockReadWrite)
'on ferme le fichier
Call File1.Close
End Sub |
--------------------------------------------------------------------------
123456789101112131415161718 | Private Sub Command1_Click() 'ecriture
'on déclare une variable de type fichier
Dim File1 As File
'on lui applique l'objet File
Set File1 = CreateObject("FileCtl.File")
'on ouvre le fichier en mode écriture
Call File1.Open(App.Path & "R-W.txt", fsModeAppend, fsAccessWrite, fsLockReadWrite)
'on écrit le texte se trouvant dans le "textbox1"
Call File1.LinePrint(Text1.Text)
'on ferme le fichier
Call File1.Close
'on efface ce qui se trouve dans text1.text
Text1.Text = ""
End Sub |
--------------------------------------------------------------------------
1234567891011121314151617181920212223 | Private Sub Command2_Click() 'lecture
'déclaration d'une variable de type string
Dim wLigne As String
'on efface tout ce qui est dans le texte box2
Text2.Text = ""
'on ouvre le fichier en mode lecture
Call File1.Open(App.Path & "R-W.txt", fsModeInput, fsAccessRead, fsLockReadWrite)
'Tant que la fin du fichier n'est pas atteinte
Do While Not File1.EOF
'on remplit la variable avec la valeur trouvé dans la ligne actuelle du fichier
wLigne = File1.LineInputString
'on ajoute la valeur dans le "textbox2"
If Text2.Text = "" Then
Text2.Text = wLigne & vbCrLf
Else
Text2.Text = Text2.Text + wLigne & vbCrLf
End If
'puis dans le combo1
Combo1.AddItem (wLigne)
Loop
Call File1.Close
End Sub |
|
Partager