Ecrire/lire un txt en VB
Fermé
the_thibz
Messages postés
22
Date d'inscription
mardi 26 juin 2001
Statut
Membre
Dernière intervention
26 décembre 2002
-
4 sept. 2002 à 10:39
BASTIEN - 15 sept. 2011 à 16:27
BASTIEN - 15 sept. 2011 à 16:27
A voir également:
- Ecrire/lire un txt en VB
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Lire epub - Guide
- Ecrire en gras sur whatsapp - Guide
- Ecrire en miroir - Guide
- Vb - Télécharger - Langages
8 réponses
kickers37000
Messages postés
217
Date d'inscription
vendredi 22 février 2008
Statut
Membre
Dernière intervention
11 juillet 2011
30
26 févr. 2009 à 11:18
26 févr. 2009 à 11:18
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 :)
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile(C:\Toto\temp.txt)
//il va creer le fichier texte 'temp' dans le dossier Toto :)
teebo
Messages postés
33491
Date d'inscription
jeudi 14 octobre 2004
Statut
Modérateur
Dernière intervention
24 février 2011
1 793
4 sept. 2002 à 11:27
4 sept. 2002 à 11:27
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'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
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
Utilisateur anonyme
26 août 2003 à 09:13
26 août 2003 à 09:13
Bonjour,
Mouais, tu y mets un peu de mauvaise volonté qd meme...
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. :)
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. :)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
teebo
Messages postés
33491
Date d'inscription
jeudi 14 octobre 2004
Statut
Modérateur
Dernière intervention
24 février 2011
1 793
5 sept. 2002 à 08:54
5 sept. 2002 à 08:54
Ca marche alors ou pas?
ö,ö
\_/
ö,ö
\_/
globewater
Messages postés
1
Date d'inscription
lundi 12 janvier 2009
Statut
Membre
Dernière intervention
12 janvier 2009
12 janv. 2009 à 23:07
12 janv. 2009 à 23:07
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
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
6 févr. 2010 à 15:18
oui mais je voudrais qu'a chaque execution il me demande un nom et surtout qu'il le sauvegarde sous ce nom.
merci