Discussion :

[jobe3141]

Bonjour à tous,

Je dois mettre en place un petit prog qui permette d'importer un fichier texte dans access. L'importation je m'en occupe. Par contre le fichier contient des espaces un peu partout sur chaque ligne et je souahaiterais mettre en place une fonction qui gere et supprime les espace de façon particulière.
ex:
texte = "B O N J O U R E T BIEN V E N U E"
resultat = "BONJOUR ET BIENVENUE"

J'espere que je suis clair sinon n'hésitez pas.
Merci pour votre aide

[Invité]

Bonjour

En général on utilise la fonction Replace dans ce genre de cas, mais il y a une grosse difficulté, car comment va-t-elle reconnaitre un faux espace d'un vrai (celui qui est entre les mots).

Y a-t-il une règle particulière pour ces espaces ?
D'où vient ce fichier texte ? Quel logiciel pond un fichier aussi nul ?

Philippe

[jobe3141]

Bonjour et merci de t intéresser a mon problème. Ce fichier provient s
D' un système comptable auquel je n ai pas la main. Je récupère un fichier sous format texte tout pourri et j ai besoin d' exploiter ces données. Il n y a pas de règles précise pour les espaces c est vraiment aléatoire. Par apport a ta réponse dois je en déduire que ce n est pas possible. Je pensais a une fonction qui identifie les espaces et qui les compte. Si ils sont > 1 alors on supprime ceux en trop. J ai pas arrête de tourner en rond mais j ai pas réussi. Est ce la bonne démarche ? Je suis preneur de toute autre solution.
En tout cas merci pour votre aide.

[Invité]

RE

Je pensais a une fonction qui identifie les espaces et qui les compte. Si ils sont > 1 alors on supprime ceux en trop.

Si c'est le cas la fonction Replace devrait faire l'affaire.

Un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function RemplacerBlanc(strChaine As String) As String
    RemplacerBlanc = Replace(strChaine, "  ", " ")
End Function

Cela remplacera deux espaces par 1 et ne touchera pas aux espaces seules.

Philippe

[jobe3141]

Merci pour la fonction mais elle ne répond pas a mon besoin. En fait je me suis mal exprimer. Je souvaiterai que la fonction fonctionne de cette façon:
Si espace =1 alors on le supprime
Sinon
Si espace >1 alors on en garde qu un seul.

Est ce possible ou pas?
Merci pour ton retour rapide.

[Invité]

Re

Si espace =1 alors on le supprime
Sinon
Si espace >1 alors on en garde qu un seul.

Ce que tu demandes est incompatible avec ton exemple :

texte = "B O N J O U R E T BIEN V E N U E"
resultat = "BONJOUR ET BIENVENUE"

Entre le R de bonjour et le ET il y a un espace, je ne peux le supprimer

Il faudrait un exemple cohérent pour trouver la solution.

Philippe

[jobe3141]

Bonjour Philippe JOCHMANS,

Effectivement mon exemple est faux. Pour reprendre, les lignes de mon fichier sont de la forme suivante:

Valeur origine = "B O N J O U R E T B I E N V E N U E"

En fait il y'a un nombre d'espaces aléatoires entre les mots et par contre les mots eux mêmes sont séparés par un espace.

Resultat souhaité = "BONJOUR ET BIENVENUE"
Est ce possible de developper la fonction dans mon précédent message:

Si espace =1 alors on le supprime
Sinon
Si espace >1 alors on en garde qu un seul.

Merci encore pour ton aide.

[Jean-Philippe André]

salut,

en partant de ce que t'a donne Philippe, je propose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Function RemplacerBlanc(strChaine As String) As String
    Dim result As String
    result = strChaine
    Do Until Instr(1, result, "  ")=0
         result = Replace(result , "  ", " ")
    Loop
    RemplacerBlanc = result
End Function

Mais le coup du espace = 1 on supprime definitivement, ca me genait, mais ca semble etre bon

edit : en fait pas du tout, en fait ici j'ai deja supprime les espaces...

Donc il faut faire un traitement caractere par caractere

[jobe3141]

Je corrige mon exemple afin qu'il soit cohérent:

Valeur d'origine: "B.O.N.J.O.U.R........................E.T.....B.I.E.N.V.E.N.U.E....."
(Les points correspondent à des espaces)

Resultat attendu: "BONJOUR.ET.BIENVENUE

NB: Merci de ton aide jpcheck mais ta fonction ne repond pas à mon besoin.

Merci à tous pour votre aide