extraire chaîne caractèresRésolu

Question

Bonjour à toutes et tous, 

En access 2002, catégorie novice. Je récupère des données d'un fichier txt
Chaque ligne commence toujours par des noms composés ( nombre de  mots variables ) suivi de chiffres.
Ces données seront importées dans le champ1 de ma table.

Ma question :
qui pourrait m'aider pour le code afin d'extraire ces noms pour les placer dans le champ"nom" et ne conserver que les chiffres dans le champ1 

exemple 

champ1
jean-marie point 45 kkjxxjkwx
pierre joseph 5464644

résultat                     nom
45 kkjxxjkwx            jean-marie
5464644                   pierre joseph

MERCI D'AVANCE
JL

cs_JMO · Accepted Answer

Re, If (IsNumeric(oTable(i)) True Or IsDate(oTable(i)) True) And k = 0 Then jean-marc

jmfmarques · Answer

Un sujet presque identique a été traité il y a peu.

Inspire-t-en :

http://www.vbfrance.com/infomsg_RECUPERER-NUMERO-DS-CHAINE_855538.aspx#7

drikce06 · Answer

http://www.vbfrance.com/recherche.aspx?r=chaine+de+caract%e8re+fichier+texte&tr=forum




 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

Salut au fait!http://www.vbfrance.com/recherche.aspx?r=Fichier+texte+lire&tr=source

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

http://www.codyx.org/recherche.aspx?r=fichier+texte




 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

Et enfin pour la manipulation des chaines de caractères:http://www.vbfrance.com/infomsg_CHAINE-CARACTERES_859711.aspx#5

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

jmfmarques · Answer

Surtout que dans son cas (avec la forme que revêtent ses données et les chiffres toujours devant ...) un simple Val suffit là !

jmfmarques · Answer

Ah pardon ! Elles sont derrière ! (lu trop vite !)

jmfmarques · Answer

Hé !
Qui a validé ma réponse idiote ?
Elle ne peut marcher que si les chiffres sont au début de la chaîne ! (ce qui n'est pas le cas !!!!!...)
Annule cette validation, s'il te plait ...

jeanluc065 · Answer

Bonjour,

Merci à tous pour vos réponses mais je n'y comprends rien.
Bon week-end
JL

cs_JMO · Answer

Bonsoir à tous Salut Jean-Luc, un petit souci ??? objFile = "D:\Test_VBFrance est_jean-luc.txt" Call RechercherMot(objFile) Function RechercherMot(objFile) Dim objFso, objFichier Set objFso = CreateObject("Scripting.FileSystemObject") Set objFichier = objFso.OpenTextFile(objFile, 1) Do While objFichier.AtEndOfStream <> True Dim Lecture, oTable, nom, resultat, i nom = "" resultat ="" Lecture = objFichier.ReadLine oTable = Split(Lecture, " ", -1, 1) For i=0 To UBound(oTable) If InStr(1, oTable(0), "-") <> 0 Then nom = oTable(0) If i > 1 Then resultat = resultat & Space(1) & oTable(i) Else nom = oTable(0) &Space(2)& oTable(1) If i > 1 Then resultat = resultat & Space(1) & oTable(i) End If Next MsgBox "ligne complète: " &vbCrLf& Lecture &vbCrLf&vbCrLf&vbCrLf&_ "contenu de la variable resultat :" & resultat &vbTab&vbCrLf&_ "contenu de la variable nom :"&vbTab& nom,,"VERIFICATION" Loop objFichier.Close Set objFichier = Nothing Set objFso = Nothing End Function jean-marc

cs_JMO · Answer

Re,

Petite correction, car pas besoin de la var lecture.

Dim oTable, nom, resultat, i
nom = ""
resultat ="" 



   oTable = Split(objFichier.ReadLine, " ", -1, 1) 



   For i=0 To UBound(oTable) 




jean-marc

jeanluc065 · Answer

Bonjour tout le monde, 

Salut Jean-Marc,

Merci pour la réponse mais çà ne marche pas tout à fait comme je le souhaitais. Il y a des problèmes avec les noms et ou prénoms composés. 
Et comment adapter ce code à une table des champs ?
Ou comment modifer le fichier TXT pour ne garder que les nom par exemple ?
J'ai créé une petite db test avec ton code. au cas où, je peux te l'envoyer et çà servirait pour tout le monde ?
Bonne journée.

cs_JMO · Answer

Bonjour à tous

Salut Jean-Luc,
Je te croyais en long week-end.
J'ai lu avec intérêt ton MP, je comprends aisément ton amerture et parfois ton désarroi à
essayer à adapter des bouts de code proposés par x forumers (pas trop français ce terme).
Je ne peux t'aider que sur la phase "extraction des données .txt", car côté gestion .mdb, je ne 
maitrise pas trop car j'utilise des bases seulement pour y extraire des données et non pour y écrire.

Pour tester ta demande d'hier (à 06h), je me suis crée un fichier .txt qui contient les 2 lignes suivantes:

jean-marie point 45 kkjxxjkwx test1
pierre joseph 5464644 test2

le résultat:
pour la 1ère ligne, la variable "nom" contient "jean-marie" et la variable "resultat" contient "45 kkjxxjkwx test1"
pour la 2ème ligne, la variable "nom" contient "pierre joseph" et la variable "resultat" contient "5464644 test2".

Donc, ce n'est pas, exactement, ce que tu escomptais comme résultat ???? 
Ai-je mal compris (1 fois de +)  la question ????

Ajoute d'autres lignes dans ton exemple et le résultat souhaité.
Et oui, il faut de la persévérance pour boucler (et non bacler, ça m'arrive parfois) un projet !!!

jean-marc

jeanluc065 · Answer

Bonjour Jean-Marc,

Ok pour la base de données.
 A défaut, n'y a-t-il pas moyen de modifier le fichier txt original pour ne garder que ce qui m'intéresse. Dans mon exmple, ce serait les noms.
Je prendrais la précaution de faire une copie de l'original 
Merci d'avance
jl

jean-marie point 45 kkjxxjkwx test1
pierre joseph 5464644 test2

nom : jean-marie point   résultat : 45 kkjxxjkwx test1
nom : pierre joseph        résultat : 5464644 test2

cs_JMO · Answer

Re,

Dans ton topic d'hier, tu avais donc zappé que tu voulais le "point" de la 1ère ligne.
Tu nous focalisais sur le "-" des prénoms composés, c'était donc une erreur ?

objFile = "D:\Test_VBFrance	est_jean-luc.txt"



Call ExtractFileText(objFile) 



Function ExtractFileText(objFile)
Dim objFso, objFichier 
  
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFichier = objFso.OpenTextFile(objFile, 1) 



Do While objFichier.AtEndOfStream <> True
Dim oTable, nom, resultat, i
nom = ""
resultat ="" 
i = 0





   oTable = Split(objFichier.ReadLine, " ", -1, 1) 
   nom = oTable(0) &Space(1)& oTable(1)
   
   For i=2 To UBound(oTable) 
        resultat = resultat & Space(1) & oTable(i) 
   Next 
   MsgBox "ligne complète: " &vbCrLf& Join(oTable) &vbCrLf&vbCrLf&vbCrLf&_
          "contenu de la variable non :" &vbTab&vbTab& nom &vbTab&vbCrLf&_
          "contenu de la variable resultat :"&vbTab& resultat,,"VERIFICATION"   
Loop
objFichier.Close
Set objFichier = Nothing
Set objFso = Nothing
End Function






jean-marc

cs_JMO · Answer

Re,

Ré-écrire ton .txt (avant l'import dans ta .mdb) sous une autre présentation est une possibilité aisée,
mais je ne vois pas l'intérêt, puisque tu te retrouves avec 2 variables (nom et resultat) contenant la totalité de
chaque ligne de ton .txt

jean-marc

jeanluc065 · Answer

Re,

Je pense que je ne me suis pas bien expliqué et je complète l'exemple

jean-marie du pont lévêque    45 kkjxxjkwx test1
pierre joseph 5464644 test2
josé el cantaoui de la mancha 544477777777 

après traitement

nom : jean-marie du pont lévêque        résultat : 45 kkjxxjkwx test1
nom : pierre joseph                             résultat : 5464644 test2 
nom : josé el cantaoui de la mancha     résultat : 544477777777 

merci

cs_JMO · Answer

Re,

Do While objFichier.AtEndOfStream <> True
Dim oTable, nom, resultat, i, k
nom = ""
resultat ="" 
i = 0
k = 0



   oTable = Split(objFichier.ReadLine, " ", -1, 1) 
   
   For i=0 To UBound(oTable) 
       If UBound(oTable) = 1 Then Exit Do       If IsNumeric(oTable(i)) True And k 0 Then 
          resultat = resultat & Space(1) & oTable(i)
          k = 1          ElseIf k 0 Then nom nom & Space(1) & oTable(i)          ElseIf k 1 Then resultat resultat & Space(1) & oTable(i)
       End If 
   Next 
   MsgBox "ligne complète: " &vbCrLf& Join(oTable) &vbCrLf&vbCrLf&vbCrLf&_
          "contenu de la variable non :" &vbTab&vbTab& nom &vbTab&vbCrLf&_
          "contenu de la variable resultat :"&vbTab& resultat,,"VERIFICATION"   
Loop



jean-marc

jeanluc065 · Answer

Re Jean-Marc,

J'ai fait les tests :

je retrouve dans "nom" tout le champ original, il n'y a aucune extraction.

jean-marie du pont lévêque    45 kkjxxjkwx test1 
=  après traitement 
jean-marie du pont lévêque    45 kkjxxjkwx test1

cs_JMO · Answer

Re

''''''''''''''''''''''''''''''''''''''''''''''
   Next 
'
' ICI les variables "nom" et "resultat" sont renseignées pour la ligne courante
' et peuvent être importées dans ta mdb. Je ne connais pas les instructions access.
'   MsgBox "ligne complète: " &vbCrLf& Join(oTable) &vbCrLf&vbCrLf&vbCrLf&_
'          "contenu de la variable non :" &vbTab&vbTab& nom &vbTab&vbCrLf&_
'          "contenu de la variable resultat :"&vbTab& resultat,,"VERIFICATION"   
Loop
'

peux-tu poster le bout de code avec la copie des 2 variables dans ta base.

jean-marc

jeanluc065 · Answer

Re, 

Ceci fonctionne ok, reste à trouver comment exploiter pour access 

jeanluc leybaert  1111111111111 29/11/75 lkjjcljjlw<jxkwx
martine laurent 111111111111111 10/07/68 lkjqsldjlkqj
el cantaoui el abidjan 5555555555555 14/12/45 gdgdgdgdgd
julien lepers 555555555555 4/5/1971 sjsjsjsjsjs 444444

par contre, ceci ne marche pas 

jeanluc leybaert  29/11/75 lkjjcljjlw<jxkwx
martine laurent  10/07/68 lkjqsldjlkqj
el cantaoui el abidjan  14/12/45 gdgdgdgdgd
julien lepers  4/5/1971 sjsjsjsjsjs 444444

jeanluc065 · Answer

RERERERE, 

ah, comme çà, c'est nettement mieux !
Merci Jean-Marc, 

J'essaye de mettre çà dans une db et je te l'envoie pour que tu puisses le publier.
Encore merci
JL

cs_JMO · Answer

Merci, jean-luc,  mais c'est ton projet.
Si je peux t'aider... tant mieux, mais publier quoi !!!

Valider le topic suffit, si tu estimes ce problème.

Pour mettre une source sur vb ou codyx, il faut que le code soit générique.
Dans ton cas, tu travailles sur des fichiers excel au format bien défini, idem
pour les .txt et ta base mnd en write.

Par contre, grâce au moteur de recherche sur vb avec certains mots clés, 
lambda sera peut-être satisfait de tomber sur l'un de tes topics.
@+.
jean-marc

cs_JMO · Answer

Re,

Je serai intéressé de voir la réponse avec l'objet RegEx (et donc ses propriétés), 
que je ne maitrise pas du tout.
Par moment, je m'y mets, mais pas longtemps....
Avis à casy ou willy, je crois me rappeler d'une réponse de l'un deux.

jean-marc

jeanluc065 · Answer

Salut Jean-Marc, 

Si je parviens a me servir de ton code pour la mise à jour de ma table dans access, je ne manquerai pas de te montrer le résultat. En fait, il ne manque plus que les requêtes. mise à jour des champs avec les variables.
YAPLUSKA...........
Encore merci pour ton coup de main
Bonne soirée et bon apéro
JL

jeanluc065 · Answer

Bonjour à tous, 
Salut Jean-Marc
Voici la solution complète concoctée par JMO + petite ajoute ( insert into ) glânée ailleurs.
Un grand merci à JMO pour sa très précieuse collaboration
JL
**********************************************************
exposé : 
dans un fichiet text "c:\a1	est chaine.txt" j'ai des milliers de lignes qui commenecent toujours par du texte ( noms et prénoms composés ) suivi de chiffres ou dates.

depuis une db en access

Je veux importer ces lignes dans ma table dans
le champ 'tout' = une ligne complète
le champ 'noms' = le début texte de ma ligne
le champ 'chiffre' = les chiffres et dates qui suivent le texte.
************************************************

Private Sub Étiquette4_Click()
objFile = "c:\a1	est chaine.txt"
Call ExtractText(objFile)
End Sub

*************************************
Function ExtractText(objFile)
Dim objFSO, objFichier
Dim SQL As String




Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFichier = objFSO.OpenTextFile(objFile, 1)


Do While objFichier.AtEndOfStream <> True
Dim oTable, nom, resultat, i, k
nom = ""
resultat = ""
i = 0
k = 0


   oTable = Split(objFichier.ReadLine, " ", -1, 1)
   
   For i = 0 To UBound(oTable)
       If UBound(oTable) = 1 Then Exit Do       If (IsNumeric(oTable(i)) True Or IsDate(oTable(i)) True) And k = 0 Then
          resultat = resultat & Space(1) & oTable(i)
          k = 1          ElseIf k 0 Then nom nom & Space(1) & oTable(i)          ElseIf k 1 Then resultat resultat & Space(1) & oTable(i)
       End If
   Next
      SQL = "INSERT INTO matable(tout,noms,chiffres) VALUES ('" & Join(oTable) & "','" & nom & "','" & resultat & "') "
          DoCmd.RunSQL SQL
 MsgBox "ligne complète: " & vbCrLf & Join(oTable) & vbCrLf & vbCrLf & vbCrLf & _
         "contenu de la variable nom :" & vbTab & vbTab & nom & vbTab & vbCrLf & _
          "contenu de la variable resultat :" & vbTab & resultat, , "VERIFICATION"
          
           
Loop


objFichier.Close
Set objFichier = Nothing
Set objFSO = Nothing
End Function

cs_JMO · Answer

Bonjour 


Salut Jean-Luc,


C'est bien, mais ça manque de commentaires !!!


Pourrais-tu montrer ton code d'ouverture de ta base "DoCmd.RunSQL", 
ce pourrait être un exemple pour comment insérer un fichier txt dans 
une base. En fait, je serais curieux d'essayer. 


Ce code fait-il partie de ton projet de manipulations de fichiers .xls ?




Bon dimanche à tous,


jean-marc

jeanluc065 · Answer

Bonjour Jean-Marc,

En fait, il n'y a pas de code pour ouvrir la db.
Tu crées une db , tu crées une table "matable" dans laquelle  il y a 3 champs tout mémo   noms texte   chiffres =texte 

Tu crées un fomulaire dans lequel tu places une étiquettes ( ici 4) que tu nommes "import / test /..??"  puis "créer un code évènement" et là tu colles ( entre Private sub ..... et end sub ) 

objFile = "c:\a1	est chaine.txt"
Call ExtractText(objFile)

Tu fermes en enregistrant les modifs.
Tu vas dans modules / nouveau et tu colles la focntion
Tu fermes
Tu ouvre le formulaire, clic sur l'étiquette.
Tu vas voir le résultat en ouvrant la table.

Bon dimanche
JL

Extraire chaîne caractères

29 réponses

Votre réponse

Discussions similaires