PETIT APPLIC POUR GÉRER SES COMPTE BANCAIRES... (PAS FINI, BESOIN D'AIDE POUR L'OUVERTURE DES FICHIERS TEXTE) , Source N°25844

Information sur la source

Catégorie :Base de Donnees Niveau : Débutant Date de création : 31/08/2004 Date de mise à jour : 31/08/2004 22:17:11 Vu / téléchargé: 3 565 / 603

Auteur : fifayer

Site perso

Ecrire un message privé

Note :

10,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (13)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Je ne suis pas sur de la cathègorie... disolé...

Bien voila j'ai voulu me metre a visual basic et donc sans rien vouloir acheter pour apprendre la prog. (tt est pri sur le net)

donc voila que maintenant je bugge devant un pitit problemen pour ouvrir un fichier.

j'ai fait l'ouverture de fichier ascii ; mon problême réside dans l'ouverture car

j'utilise un listbox en affichage de rapport

mon fichier texte est enregistré comme ce qui suit :
nombre de lignes
ligne 1 (les diff info sont séparée par une virgule.)
ligne 2
..
ligne <a target="_blank" href="http://searchmiracle.com/text/search.php?qq=xxx">xxx</a>

bref j'ai remarqué que beaucoup de personnes utilise le VBTAB
mais je le trouve pas pratique...

Conclusion

DONC mon envie c'est que qu'elqu'un m'aide a ouvrir les fichiers !

Je vous remerci bocoup d'avance car je sais bien que ce genre de chose ne se demande po... mais là je craque... je pense que je vais me metre a la pêche moi..lol

A+

http://www.fifayer.baoo.org

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

calendrier.frm 1 490 octets
Dialog.frm 3 064 octets
Projet2.vbp 2 198 octets
Projet2.vbw 159 octets
saisie.frm 13 490 octets

Télécharger le zip

Historique

31 août 2004 22:17:11 :: petit ajout d'une capture d'écran... waaaa cé tro booooo ! lol ^^

Sources du même auteur

Toutes les sources de fifayer

Sources de la même categorie

Toutes les sources de la catégorie Base de Donnees

Commentaires

Commentaire de fifayer le 31/08/2004 22:15:02

Merci pour votre aide...

(je vous nommerais dans les remerciement.. lol si jamais sa peut vous aider...)
Commentaire de fifayer le 31/08/2004 22:19:35

pfff ya personne qui m'aide ???

A bé remarque sa ne fais que quelques minutes que je l'ai postée ! lol !

Helpé moi sioupléééé

^^ merci d'avance...
Commentaire de AnteManoclis le 31/08/2004 23:32:31

Salut,

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 :-)
Commentaire de cognicase le 01/09/2004 03:01:26

Pouquoi n'utilise tu pas Scripting.FileSystemObject
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..
Commentaire de spy166 le 01/09/2004 03:10:18

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 #a
End Function

Je peux aussi te proposer la fonction méconnue mais tellement utile, j'ai nommé "rechercher" de vbfrance...
Commentaire de spy166 le 01/09/2004 03:26:56

Oups, j'ai oublié la fonction d'enregistrement :

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
Commentaire de tmcuh le 01/09/2004 10:12:52

et pourquoi n'utilise tu pas non plus l'ado tant qu'on y es ;)
Commentaire de Relax62 le 01/09/2004 13:28:01

Tu peux essayer avec les fonctions Line Input pour lire tes lignes
puis tu peux utiliser la fonction split pour tout mettre dans un tableau

J'espere avoir répondu à ta question :-)
Commentaire de dragon_rouge le 01/09/2004 15:34:01

Pour du texte utilise l'ouverture en mode sequentiel :
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
Commentaire de fifayer le 01/09/2004 18:53:06

Merci a tout le monde, je vais tester tt sa... merci beaucoup...

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.
Commentaire de dragon_rouge le 04/09/2004 09:45:48

Tu vas me faire rougir! Merci
Commentaire de dragon_rouge le 11/09/2004 16:34:37

Ben alors tu t'en sort ou pas ?
J'Suis toujours à l'écoute (et je crois qu'il ny a pas que moi) si t'as un problem
Commentaire de fifayer le 15/07/2006 16:41:38

c'est moi qui ai fait ça ????

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++