|
Iniciado por Awery, 28,feb. 2012 11:26 - 5 respuestas |
| |
| | | |
|
| |
Miembro registrado 31 mensajes |
|
Publicado el 28,febrero 2012 - 11:26 |
Mise à jours de ma base HFSQL avec un .txt
J'ai trouver ce bout de code
LigneLue = fLitLigne(NumFic)
TableAjouteLigne("",ExtraitChaîne(LigneLue,1,", "),ExtraitChaîne(LigneLue,2,", "),ExtraitChaîne(LigneLue,3,", "))
TANTQUE LigneLue <> EOT ET LigneLue <> "" LigneLue = fLitLigne(NumFic) TableAjouteLigne("",ExtraitChaîne(LigneLue,1,", "),ExtraitChaîne(LigneLue,2,", "),ExtraitChaîne(LigneLue,3,", ")) FIN SI LigneLue = "" ALORS Erreur(ErreurInfo(errMessage)) fFerme(NumFic)
moi mes séparateur sont des ";" mais ce code ne marche pas. Il faut que je rajoute fOuvre et fLit.
Je ne sais pas ou chercher
-- Merci de votre message |
| |
| |
| | | |
|
| | |
| |
Miembro registrado 31 mensajes |
|
Publicado el 28,febrero 2012 - 12:54 |
alors j'ai refaçonner ce code avec un autre bout de code
Fichier est un entier Lecture est une chaîne nFicherNbLigne est un entier nCompteur_de_ligne est un entier Tableau_fichier est un tableau de 1 par 1 chaîne i est un entier
fSupprime(fRepExe()+"\Arcticle.FIC") fSupprime(fRepExe()+"\Arcticle.ndx") fSupprime(fRepExe()+"\CLIENT.FIC") fSupprime(fRepExe()+"\CLIENT.ndx") fSupprime(fRepExe()+"\Statistiques.FIC") fSupprime(fRepExe()+"\Statistiques.ndx")
Fichier = fOuvre(fRepExe()+"\CLIENT.txt",foLectureEcriture)
Lecture = fLit(Fichier, 600000)
fFerme(Fichier)
POUR TOUT CHAINE sFicierNbLigne DE Lecture SEPAREE PAR RC
nCompteur_de_ligne ++
FIN
TableauSupprimeTout(tabTableau_fichier)
Tabeau_fichier = allouer un tabeau de Compteur_de_ligne par 19 chaînes
ChaîneVersTableau(Lecture, Tableau_Fichier,RC,";" )
POUR i = 1 A (compteur_de_ligne - 1) TableAjoute(CLIENT, Tableau_Fichier[i,1], Tableau_Fichier[i,2], Tableau_Fichier[i,3], Tableau_Fichier[i,4], Tableau_Fichier[i,5], Tableau_Fichier[i,6]) Tableau_Fichier[i,7], Tableau_Fichier[i,8], Tableau_Fichier[i,9], Tableau_Fichier[i,10], Tableau_Fichier[i,11], Tableau_Fichier[i,12], Tableau_Fichier[i,13], Tableau_Fichier[i,14], Tableau_Fichier[i,15], Tableau_Fichier[i,16], Tableau_Fichier[i,17], Tableau_Fichier[i,18], Tableau_Fichier[i,19])
FIN
mais j'ai un problème de syntaxe a la ligne
Tabeau_fichier = allouer un tabeau de Compteur_de_ligne par 19 chaînes
Quelqu'un sait ?
-- Merci de votre message |
| |
| |
| | | |
|
| | |
| |
Publicado el 28,febrero 2012 - 13:33 |
Bonjour. Pour utiliser les allocations, il faut obligatoirement avoir une variable dynamique, sinon, elle est allouée à la création. ( Du moins, je l'ai toujours supposé ) Toutefois, il serait peut être plus simple, étant donné que tu fait déjà un parcours sur toutes les lignes, de faire l'ajout dans la foulée...
tableau est un tableau de chaînes POUR TOUT CHAINE sLigne DE Lecture SEPAREE PAR RC ChaîneVersTableau( sLigne, tableau, ";" ) FIN Sinon, pour utiliser le tableau dynamique :
Tableau_fichier est un tableau dynamique Tableau_fichier = allouer un tableau dynamique de Compteur_de_ligne par 19 chaînes Cela étant, dans la doc de la fonction ChaineVersTableau, il est précisé que pour les types simples, les augmentations de nombre de colonnes / lignes étaient réalisées automatiquement. On peut donc avoir :
Tableau_fichier est un tableau de 0 par 0 chaînes ChaîneVersTableau( Tableau_fichier, Lecture, RC, ";" )
Bonne journée.
Awery a écrit dans le message de news <9526c2f11ad87a6ae82e29f710aff195@news.pcsoft> :
mais j'ai un problème de syntaxe a la ligne Tabeau_fichier = allouer un tabeau de Compteur_de_ligne par 19 chaînes Quelqu'un sait ? -- Merci de votre message |
| |
| |
| | | |
|
| | |
| |
Miembro registrado 31 mensajes |
|
Publicado el 28,febrero 2012 - 16:24 |
du coup ma syntaxe est fausse non ?
POUR i = 1 A (Compteur_de_ligne - 1) HAjoute(CLIENT,Tableau_fichier[i,1],Tableau_fichier[i,2], Tableau_fichier[i,3],Tableau_fichier[i,4],Tableau_fichier[i,5],Tableau_fichier[i,6],Tableau_fichier[i,7],Tableau_fichier[i,8],Tableau_fichier[i,9], Tableau_fichier[i,10], Tableau_fichier[i,11], Tableau_fichier[i,12], Tableau_fichier[i,13], Tableau_fichier[i,14], Tableau_fichier[i,15], Tableau_fichier[i,16], Tableau_fichier[i,17], Tableau_fichier[i,18], Tableau_fichier[i,19])
FIN
-- Merci de votre message |
| |
| |
| | | |
|
| | |
| |
Miembro registrado 31 mensajes |
|
Publicado el 28,febrero 2012 - 17:15 |
POUR i = 1 A (Compteur_de_ligne - 1) CLIENT.Nom_dappel = Tableau_fichier[i,1] CLIENT.Raison_sociale = Tableau_fichier[i,2] CLIENT.Adresse_1 = Tableau_fichier[i,3] CLIENT.Adresse_2 = Tableau_fichier[i,4] CLIENT.Adresse_3 = Tableau_fichier[i,5] CLIENT.Code_postal = Tableau_fichier[i,6] CLIENT.Ville = Tableau_fichier[i,7] CLIENT.Interlocuteur = Tableau_fichier[i,8] CLIENT.Téléphone = Tableau_fichier[i,9] CLIENT.Fax = Tableau_fichier[i,10] CLIENT.Code_Famille = Tableau_fichier[i,11] CLIENT.CA_N = Tableau_fichier[i,12] CLIENT.CA_N1 = Tableau_fichier[i,13] CLIENT.CA_N2 = Tableau_fichier[i,14] CLIENT.Commentaire = Tableau_fichier[i,15] CLIENT.Mail = Tableau_fichier[i,16] CLIENT.Portable = Tableau_fichier[i,17] HAjoute(CLIENT)
FIN
Je remplis mon tableau comme ceci
-- Merci de votre message |
| |
| |
| | | |
|
| | |
| |
Miembro registrado 31 mensajes |
|
Publicado el 28,febrero 2012 - 17:31 |
[Résolue]
Fichier est un entier Lecture est une chaîne Compteur_de_ligne est un entier Tableau_fichier est un tableau dynamique i est un entier
fSupprime(fRepExe()+"\Arcticle.FIC") fSupprime(fRepExe()+"\Arcticle.ndx") fSupprime(fRepExe()+"\CLIENT.FIC") fSupprime(fRepExe()+"\CLIENT.ndx") fSupprime(fRepExe()+"\Statistiques.FIC") fSupprime(fRepExe()+"\Statistiques.ndx")
Fichier = fOuvre(fRepExe()+"\CLIENT.txt",foLectureEcriture)
Lecture = fLit(Fichier, 600000)
fFerme(Fichier)
POUR TOUT CHAINE sFicierNbLigne DE Lecture SEPAREE PAR RC
Compteur_de_ligne ++
FIN
Tableau_fichier = allouer un tableau dynamique de Compteur_de_ligne par 17 chaînes
ChaîneVersTableau(Lecture, Tableau_fichier,RC,";" )
POUR i = 1 A (Compteur_de_ligne - 1) CLIENT.Nom_dappel = Tableau_fichier[i,1] CLIENT.Raison_sociale = Tableau_fichier[i,2] CLIENT.Adresse_1 = Tableau_fichier[i,3] CLIENT.Adresse_2 = Tableau_fichier[i,4] CLIENT.Adresse_3 = Tableau_fichier[i,5] CLIENT.Code_postal = Tableau_fichier[i,6] CLIENT.Ville = Tableau_fichier[i,7] CLIENT.Interlocuteur = Tableau_fichier[i,8] CLIENT.Téléphone = Tableau_fichier[i,9] CLIENT.Fax = Tableau_fichier[i,10] CLIENT.Code_Famille = Tableau_fichier[i,11] CLIENT.CA_N = Tableau_fichier[i,12] CLIENT.CA_N1 = Tableau_fichier[i,13] CLIENT.CA_N2 = Tableau_fichier[i,14] CLIENT.Commentaire = Tableau_fichier[i,15] CLIENT.Mail = Tableau_fichier[i,16] CLIENT.Portable = Tableau_fichier[i,17] HAjoute(CLIENT)
FIN
-- Merci de votre message |
| |
| |
| | | |
|
| | | | |
| | |
|