Ecrire/lire un txt en VB

the_thibz Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -  
 BASTIEN -
bonjour a tous, j'aimerai faire un prog et pour cela il me faudra lire et ecrire dans un *.txt eske quelqu'un pourrai me donner un exemple de code?

et aussi comment faire pour extraire une chaine de caractere d'un txt sans avoir a compter manuellement le nombre de lettre a extraire?

merci d'avance
A voir également:

8 réponses

Réponse 1 / 8
kickers37000 Messages postés 221 Date d'inscription   Statut Membre Dernière intervention   30
 
Pour ceux qui passe dans ce topic.. bah en deux ligne on peut creer un fichier txt...

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile(C:\Toto\temp.txt)



//il va creer le fichier texte 'temp' dans le dossier Toto :)
5
reg
 
bonjour,
oui mais je voudrais qu'a chaque execution il me demande un nom et surtout qu'il le sauvegarde sous ce nom.
merci
0
Réponse 2 / 8
teebo Messages postés 33491 Date d'inscription   Statut Modérateur Dernière intervention   1 793
 
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
ö,ö
\_/
3
Réponse 3 / 8
Mathieu
 
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
1
Réponse 4 / 8
Utilisateur anonyme
 
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. :)
1

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
airemax
 
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
1
Réponse 6 / 8
BASTIEN
 
Sinon moi j'ai trouvé sa :
My.Computer.FileSystem.ReadAllText("le-document-de-text.txt")
1
Réponse 7 / 8
teebo Messages postés 33491 Date d'inscription   Statut Modérateur Dernière intervention   1 793
 
Ca marche alors ou pas?

ö,ö
\_/
0
Réponse 8 / 8
globewater Messages postés 1 Date d'inscription   Statut Membre Dernière intervention  
 
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
-1