PETIT APPLIC POUR GÉRER SES COMPTE BANCAIRES... (PAS FINI, BESOIN D'AIDE POUR L'
fifayer
Messages postés
73
Date d'inscription
dimanche 29 décembre 2002
Statut
Membre
Dernière intervention
14 décembre 2010
-
31 août 2004 à 22:15
fifayer Messages postés 73 Date d'inscription dimanche 29 décembre 2002 Statut Membre Dernière intervention 14 décembre 2010 - 15 juil. 2006 à 16:41
fifayer Messages postés 73 Date d'inscription dimanche 29 décembre 2002 Statut Membre Dernière intervention 14 décembre 2010 - 15 juil. 2006 à 16:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/25844-petit-applic-pour-gerer-ses-compte-bancaires-pas-fini-besoin-d-aide-pour-l-ouverture-des-fichiers-texte
https://codes-sources.commentcamarche.net/source/25844-petit-applic-pour-gerer-ses-compte-bancaires-pas-fini-besoin-d-aide-pour-l-ouverture-des-fichiers-texte
15 juil. 2006 à 16:41
OULA SA VAS PAS TROP BIEN MOI...
Je suis vraiment trop nul moi...
J'abandonne tout mes projet en cour de route; je suis vraiment nul...
SINON, ce prog vous intéresse ?
(dizoulé pour l'ortograf...)
en ce moment je travaille sur un éditeur HTML... c'est vraiment coriace...
A++
11 sept. 2004 à 16:34
J'Suis toujours à l'écoute (et je crois qu'il ny a pas que moi) si t'as un problem
4 sept. 2004 à 09:45
1 sept. 2004 à 18:53
en tt cas je remerci dragon rouge car c'est lui qui m'a répondu le plus clairement possible.. pour lais autre merci aussi c'est vraiment cool votre aide..
A très biento j'espère a charge de revanche...
Fab.
1 sept. 2004 à 15:34
pour ecrire :
File = FreeFile
Open "C:\MonFichier.Cequejeveux" for append as #File
Write #File, info1 ,info2 ,info3 ,...
Close #File
Pour lire :
Open "C:\MonFichier.Cequejeveux" for input as #File2
Write #File2, infox1 ,infox2 ,infox3 ,...
Close #File2
et si tu veux lire ton fichier comme il faut pour ton prog
(sest a dire 4 donnés puis 4 autre jusqua la fin :
File2 = FreeFile
Open "C:\Data.txt" For Input As #File2
While Not EOF(File2)
Input #File2, Infox1, Infox2, Infox3, Infox4
Wend
Close #file
L'utilisation de While Not EOF() + wenc li le fichier jusqu'a la fin
1 sept. 2004 à 13:28
puis tu peux utiliser la fonction split pour tout mettre dans un tableau
J'espere avoir répondu à ta question :-)
1 sept. 2004 à 10:12
1 sept. 2004 à 03:26
Function SauverTexte(ByVal Fichier As String) As String
Dim i As Integer
i = FreeFile
Open Fichier For Output As #i
Print #i, MonString
Close #i
End Function
et j'avais fait une petite erreur dans celle de lecture ("Close #i" et non pas "Close #a")
Function OuvrirTexte(ByVal Fichier As String) As String
Dim i As Integer
i = FreeFile
Open Fichier For Input As #i
OuvrirTexte = Input(LOF(i), i)
Close #i
End Function
1 sept. 2004 à 03:10
Dim i As Integer
i = FreeFile
Open Fichier For Input As #i
OuvrirTexte = Input(LOF(i), i)
Close #a
End Function
Je peux aussi te proposer la fonction méconnue mais tellement utile, j'ai nommé "rechercher" de vbfrance...
1 sept. 2004 à 03:01
Cette dll qui appartient a Microsoft fonctionne tou seul..
Dim fs As Object
Dim txt As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set txt = fs.OpenTextFile(app.path & "\text.txt",1,true)
Do While txt.AtEndOfFile
Loop
txt.Close
Etc. etc. etc...
Cherche sur Google tu vas trouver un paquet d'exemple d'ouverture de d'écriture et de lecture ..
Je fait pas référence a cette dll directement car wscript.dll peux être différent selon une mise a jour de Internet Explorer....
Et que si je créer l'object je n'ai jamais de Run-time Error
en tu cas .. si ca peut t'aider..
31 août 2004 à 23:32
Je dois reconnaitre que j'ai pas bien saisi ton problème, mais ceci pourra peut-être t'aider.
Au lieu de chercher les séparations, tu peux utiliser la commande "Input" qui te permet de recupérer une variable intantanément. Maintenant, ça rend ton fichier plus volumineux mais je ne pense pas que tu sois à cela près, et si ton problème n'était pas celui-là, alors excuse de t'avoir pris quelques secondes de ton temps :-)
31 août 2004 à 22:19
A bé remarque sa ne fais que quelques minutes que je l'ai postée ! lol !
Helpé moi sioupléééé
^^ merci d'avance...
31 août 2004 à 22:15
(je vous nommerais dans les remerciement.. lol si jamais sa peut vous aider...)