Ecrire/lire un txt en VB

Tiens j'ai ca moi, la premiere fonction ecrit dans un fichier donne (creation si inexistant) des options et la deuxieme lit ces fonctions...
C'est pas exactement ce que tu demandes mais ca donne un point de depart potable, pour le reste MSDN version CD si tu as est bien foutu...

_______________________________________________________
Private Sub WriteOption(ByVal Key As String, ByVal Value As Integer)
On Error Resume Next
Dim filecode As Integer

If ReadOption(Key) <> -1 Then
Exit Sub
Else
filecode = FreeFile()
Open "c:\ConfigFolder\options.ini" For Append As filecode

Write #filecode, Key, Value

Close filecode
End If
End Sub
_______________________________________________________

Private Function ReadOption(Key As Variant) As Variant
Dim filecode As Integer
Dim presentValue As Integer
Dim presentKey As String
On Error GoTo ErrorHandler
ReadOption = -1

filecode = FreeFile()

Open "c:\ConfigFolder\options.ini" For Input As filecode

While Not EOF(filecode)
Input #1, presentKey, presentValue
If presentKey = Key Then
ReadOption = presentValue
Close filecode
Exit Function
End If
Wend

Close filecode
ErrorHandler:
ReadOption = -1
Close filecode
End Function
ö,ö
\_/

c compliké comme fonction ya plus simple non?
mon probleme vien du fait ke je n'arrive pas a créer un fichier .txt ou autre. je bloc dans mon prog. et ca mennui. si vous av une id
il faut ke je puisse créer un fichier a partir du code. je suis in-ca-pa-ble de trouver commen on fé
merci davance

Bonjour,
Mouais, tu y mets un peu de mauvaise volonté qd meme...

Dim nfic
nfic = FreeFile
Open "monfic.txt" for Input as nfic

Voila, après, je te conseille d'acheter un bouquin, tu vas pas t'en sortir sinon...

Kalamit,
Parle à ma culasse, mon carter est malade. :)

slt tous le monde
d"ahbor il faut importer .io
pour ca
Import System.Io

Structure contra
<VBFixedString(7)> Public numcontrat As String
<VBFixedString(11)> Public numcomptecontrat As String
End Structure
Dim numf As Integer = FreeFile()
Dim m As contra
Dim rec As Long = Len(m) 'c'est la longuer de l'enregistrement que tu veut travaié de su dans ce cas c'est une strécture mais tu peut l'utiliser pour un seul champ
'puis pour ouvrir le fichié
FileOpen(numf, "d:\contrat.txt", OpenMode.Random, , , rec)

Dim nb As Integer = FileLen("d:\contrat.txt") / rec
Dim trouve As Boolean = False
For i As Integer = 1 To nb
'pour se déplaser dans le fichié
FileGet(numf, m, i)
If con.numcontrat = m.numcontrat.Trim Then
trouve = True
Exit For
End If
Next
'pour ecrire dans le fichié
FilePutObject(numf , con, j)
'pour fermer le fichié
FileClose(numf)
'pour copier d'un txt a un autre
My.Computer.FileSystem.CopyFile("d:\contrat1.txt", "d:\contrat.txt", True)
'pour suprimer
My.Computer.FileSystem.DeleteFile("d:\contrat1.txt")
----------------------
j"ésper que qulqu1 va nous aider pour Excel et merci

Sinon moi j'ai trouvé sa :
My.Computer.FileSystem.ReadAllText("le-document-de-text.txt")

Ca marche alors ou pas?

ö,ö
\_/

Module Module1

Sub Main()
Dim mystreamreader As IO.StreamReader
Dim myreadline() As String
Dim i As Integer
mystreamreader = My.Computer.FileSystem.OpenTextFileReader("C:\\zakaria.txt")
Do Until mystreamreader.EndOfStream
myreadline = Split(mystreamreader.ReadToEnd(), "")
Console.WriteLine(myreadline(i))
i = i + 1
Loop
Console.ReadKey()
End Sub

End Module