OVH Cloud OVH Cloud

Fichier Sequantiel

3 réponses
Avatar
Richer
bonsoir a tous.
ce que je tente de faire est d avoir dans un fichier
sequentiel le nom et le mot de passe et un chiffre sur la meme ligne jusque
la sa fontionne.

mon probleme est que je veut plusieur usager un en dessous de l'autre et
quand je lit ma page que je puisse faire une recherche en ouvrant le
fichier.


voici mon code:

pour ouvrir:

Open "c:\user.dll" For Input As #1
Input #1, TmpUser1, TmpCode1, TmpTime1

Close #1

==================================

pour ajoute un user:

Write #1, TmpUser1, TmpCode1, TmpTime1

Close #1

3 réponses

Avatar
surfeur75
Salut, c'est ça le fichier séquentiel :



pf = pointeur (as long)

OUVERTURE

Open "cheminnom_fichier.txt" For Input As pf

LECTURE seule

Open "cheminnom_fichier.txt" For Output As pf

EFFACEMENT si existant + écriture

Open "cheminnom_fichier.txt" For Append As pf

ECRITURE, AJOUT + créé si inexistant


LECTURE

Input

Line Input #pf, variable_texte

Lit l'enregistrement jusqu'à chr(13) ou (13+10)

sans les transférer

Chr(10+13) dans la variable texte


ECRITURE

.Output. OU. Append

Print #pf, variable_texte

Ecrit l'enregistrement en ajoutant chr(13+10)





Pour lire tout tu fais: (mets dans un objet pour voir

"list, textBox"), tu tries ou pas, soit pour une liste

par exp:



do while eof(pf) <> true

Line Input #pf, variable_texte

loop


@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!



"Richer" a écrit dans le message de news:

bonsoir a tous.
ce que je tente de faire est d avoir dans un fichier
sequentiel le nom et le mot de passe et un chiffre sur la meme ligne


jusque
la sa fontionne.

mon probleme est que je veut plusieur usager un en dessous de l'autre et
quand je lit ma page que je puisse faire une recherche en ouvrant le
fichier.


voici mon code:

pour ouvrir:

Open "c:user.dll" For Input As #1
Input #1, TmpUser1, TmpCode1, TmpTime1

Close #1

================================= >
pour ajoute un user:

Write #1, TmpUser1, TmpCode1, TmpTime1

Close #1




Avatar
surfeur75
Précision: dans ta lecture avec une liste par exemple, après le Line Input
du Do While, tu mets:
list1.additem = variable_texte
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!


"surfeur75" a écrit dans le message de news:
#


Salut, c'est ça le fichier séquentiel :



pf = pointeur (as long)

OUVERTURE

Open "cheminnom_fichier.txt" For Input As pf

LECTURE seule

Open "cheminnom_fichier.txt" For Output As pf

EFFACEMENT si existant + écriture

Open "cheminnom_fichier.txt" For Append As pf

ECRITURE, AJOUT + créé si inexistant


LECTURE

Input

Line Input #pf, variable_texte

Lit l'enregistrement jusqu'à chr(13) ou (13+10)

sans les transférer

Chr(10+13) dans la variable texte


ECRITURE

.Output. OU. Append

Print #pf, variable_texte

Ecrit l'enregistrement en ajoutant chr(13+10)





Pour lire tout tu fais: (mets dans un objet pour voir

"list, textBox"), tu tries ou pas, soit pour une liste

par exp:



do while eof(pf) <> true

Line Input #pf, variable_texte

loop


@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!



"Richer" a écrit dans le message de news:

> bonsoir a tous.
> ce que je tente de faire est d avoir dans un fichier
> sequentiel le nom et le mot de passe et un chiffre sur la meme ligne
jusque
> la sa fontionne.
>
> mon probleme est que je veut plusieur usager un en dessous de l'autre et
> quand je lit ma page que je puisse faire une recherche en ouvrant le
> fichier.
>
>
> voici mon code:
>
> pour ouvrir:
>
> Open "c:user.dll" For Input As #1
> Input #1, TmpUser1, TmpCode1, TmpTime1
>
> Close #1
>
> ================================= > >
> pour ajoute un user:
>
> Write #1, TmpUser1, TmpCode1, TmpTime1
>
> Close #1
>
>




Avatar
Richer
peut tu me montrer une exemple car sa me donne des erreur


Merci
Richer

"surfeur75" a écrit dans le message de news:

Précision: dans ta lecture avec une liste par exemple, après le Line Input
du Do While, tu mets:
list1.additem = variable_texte
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!


"surfeur75" a écrit dans le message de news:
#
>
>
> Salut, c'est ça le fichier séquentiel :
>
>
>
> pf = pointeur (as long)
>
> OUVERTURE
>
> Open "cheminnom_fichier.txt" For Input As pf
>
> LECTURE seule
>
> Open "cheminnom_fichier.txt" For Output As pf
>
> EFFACEMENT si existant + écriture
>
> Open "cheminnom_fichier.txt" For Append As pf
>
> ECRITURE, AJOUT + créé si inexistant
>
>
> LECTURE
>
> Input
>
> Line Input #pf, variable_texte
>
> Lit l'enregistrement jusqu'à chr(13) ou (13+10)
>
> sans les transférer
>
> Chr(10+13) dans la variable texte
>
>
> ECRITURE
>
> .Output. OU. Append
>
> Print #pf, variable_texte
>
> Ecrit l'enregistrement en ajoutant chr(13+10)
>
>
>
>
>
> Pour lire tout tu fais: (mets dans un objet pour voir
>
> "list, textBox"), tu tries ou pas, soit pour une liste
>
> par exp:
>
>
>
> do while eof(pf) <> true
>
> Line Input #pf, variable_texte
>
> loop
>
>
> @+, bye, Joe.
> Pour m'écrire ng75AROBASEnoosPOINTfr
> Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!
>
>
>
> "Richer" a écrit dans le message de news:
>
> > bonsoir a tous.
> > ce que je tente de faire est d avoir dans un


fichier
> > sequentiel le nom et le mot de passe et un chiffre sur la meme ligne
> jusque
> > la sa fontionne.
> >
> > mon probleme est que je veut plusieur usager un en dessous de l'autre


et
> > quand je lit ma page que je puisse faire une recherche en ouvrant le
> > fichier.
> >
> >
> > voici mon code:
> >
> > pour ouvrir:
> >
> > Open "c:user.dll" For Input As #1
> > Input #1, TmpUser1, TmpCode1, TmpTime1
> >
> > Close #1
> >
> > ================================= > > >
> > pour ajoute un user:
> >
> > Write #1, TmpUser1, TmpCode1, TmpTime1
> >
> > Close #1
> >
> >
>
>