albert0
Messages postés249Date d'inscriptionmercredi 27 novembre 2002StatutMembreDernière intervention 9 août 2008
-
27 nov. 2002 à 22:14
Ougalougou
Messages postés9Date d'inscriptionjeudi 28 novembre 2002StatutMembreDernière intervention 3 avril 2005
-
30 nov. 2002 à 13:30
Bonjours a tous
je vai poser une question ou surement beaucoup de gens on poser mais bon
enfet j'aimerai fair une petit base de donné avec des fichier txt
par ex j'aimerai ajouer un new user e ds mon prg je fait le formulaire et ke les info ke j ai entrer s ecrive dans un fichier text et que ensuite pour me loger le prg verof ds le fichier txt si les info sont juste
Ougalougou
Messages postés9Date d'inscriptionjeudi 28 novembre 2002StatutMembreDernière intervention 3 avril 2005 28 nov. 2002 à 20:50
l'idée est de créer un tableau avec i lignes et j colonnes dans ton fichier txt.
la 1er colonne va du caractère 1 au 10
la deuxième va du caractère 11 au 20,etc...
tu peux créer la colonne "N° utilisateur",colonne "nom",colonne "mot de passe"
fais un test à chaque ligne avec les fonctions "Trim(),Left(),Right(),Len()
A bientôt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Badclown
Messages postés162Date d'inscriptionjeudi 27 décembre 2001StatutMembreDernière intervention22 mars 2004 29 nov. 2002 à 08:27
Ok alors ton fichier devrai se presenter comme ca:
[user]
user1=user
pass1=pass
user2=user2
pass2=pass2
Le code ressemblerais a ca(strUser c le nom de l'utilisateur depuis le logiciel et strUserIni depuis le fichier ini, idem pour pass:
strUser = txtUser.text
strPass= txtPass.text
strUserIni=LireINI("user","user" & lngChiffreUser)
strPassIni=LireINI("user","pass" & lngChiffreUser)
if strUser strUserIni And str Pass strPass ini then
Msgbox "User ok"
else
msgbox "Faux password ou user"
endif
Ougalougou
Messages postés9Date d'inscriptionjeudi 28 novembre 2002StatutMembreDernière intervention 3 avril 2005 30 nov. 2002 à 13:30
Salut,je te donne une voie de recherche possible.
il faut créer une référence de l'objet "Scripting.FileSystemObject qui permet la manipulation du système de fichier:
Set FileSystem = CreateObject("Scripting.FileSystemObject")
'teste si le fichier C:mes docuement\montexte.txt existe
If FileSystem.FileExists("C:mes document\montext.txt") = False Then
'bla bla bla
end if
quelques fonctions:
FileSystem .CreateTextFile
FileSystem.FileExists
FileSystem .GetFile
FileSystem.GetFolder
parcourir un fichier:
TextStream.Read
TextStream.ReadLine
TextStream.SkipLine
TextStream.Write
TextStream.WriteLine