Recherche
Posez votre question Signaler

Ecrire/lire un txt en VB

the_thibz 22Messages postés mardi 26 juin 2001Date d'inscription 26 décembre 2002Dernière intervention - Dernière réponse le 15 sept. 2011 à 16:27
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
Lire la suite 
Réponse
+5
moins plus
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 :)
reg- 6 févr. 2010 à 15:18
bonjour,
oui mais je voudrais qu'a chaque execution il me demande un nom et surtout qu'il le sauvegarde sous ce nom.
merci
Répondre
Ajouter un commentaire
Réponse
+3
moins plus
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
ö,ö
\_/
Ajouter un commentaire
Réponse
+1
moins plus
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
Ajouter un commentaire
Réponse
+1
moins plus
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. :)
Ajouter un commentaire
Réponse
+1
moins plus
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
Ajouter un commentaire
Réponse
+1
moins plus
Sinon moi j'ai trouvé sa :
My.Computer.FileSystem.ReadAllText("le-document-de-text.txt")
Ajouter un commentaire
Réponse
+0
moins plus
Ca marche alors ou pas?

ö,ö
\_/
Ajouter un commentaire
Réponse
-1
moins plus
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
Ajouter un commentaire
Ce document intitulé «  ecrire/lire un txt en VB  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.