cherche Fonction pour nettoyer un champ numérique

Le
---DGI972---
Bonjour a tous,

Je suis à la recherche d'une fonction en vbs pour nettoyer un champ
numérique issu d'un split dans un readline d'un csv.
Je m'explique: la valeurs numérique dans le champ N°5 peut être soit
avec des zéros devant soit avec des espaces.
Je voudrais récupérer la valeur sur 12 caractères avec des zéros à
gauche pour pouvoir faire une recherche dans un autre csv ou je
lancerait la même fonction (mais dans un autre N° DE Champ) et lorsque
je trouve, je dois ramener une valeur dans autre champ de la même ligne
pour écraser le champ N°6.

C;8212563;971012348908;890012340092;000000113050;000020019;1020019
C;8012124;971012347908;000712349795; 69700;072918420;73918420

Merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilles LAURENT [MVP]
Le #19004011
"---DGI972---" message de
news:
| Bonjour a tous,

Bonjour,

| Je suis à la recherche d'une fonction en vbs pour nettoyer un champ
| numérique issu d'un split dans un readline d'un csv.
| Je m'explique: la valeurs numérique dans le champ N°5 peut être soit
| avec des zéros devant soit avec des espaces.
| Je voudrais récupérer la valeur sur 12 caractères avec des zéros à
| gauche pour pouvoir faire une recherche dans un autre csv ou je
| lancerait la même fonction (mais dans un autre N° DE Champ) et lorsque
| je trouve, je dois ramener une valeur dans autre champ de la même
| ligne pour écraser le champ N°6.
|
| C;8212563;971012348908;890012340092;000000113050;000020019;1020019
| C;8012124;971012347908;000712349795; 69700;072918420;73918420
|
| Merci d'avance

Pour formater la valeur du champ numéro 5 :

sLine=oFs.ReadLine
sNumber=Replace(Split(sLine,";")(4)," ","0")

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
---DGI972---
Le #19010031
Gilles LAURENT [MVP] a exposé le 29/03/2009 :
"---DGI972---" message de
news:
Bonjour a tous,



Bonjour,

Je suis à la recherche d'une fonction en vbs pour nettoyer un champ
numérique issu d'un split dans un readline d'un csv.
Je m'explique: la valeurs numérique dans le champ N°5 peut être soit
avec des zéros devant soit avec des espaces.
Je voudrais récupérer la valeur sur 12 caractères avec des zéros à
gauche pour pouvoir faire une recherche dans un autre csv ou je
lancerait la même fonction (mais dans un autre N° DE Champ) et lorsque
je trouve, je dois ramener une valeur dans autre champ de la même
ligne pour écraser le champ N°6.

C;8212563;971012348908;890012340092;000000113050;000020019;1020019
C;8012124;971012347908;000712349795; 69700;072918420;73918420

Merci d'avance



Pour formater la valeur du champ numéro 5 :

sLine=oFs.ReadLine
sNumber=Replace(Split(sLine,";")(4)," ","0")



merci j'essaye cela demain

j'ai le droit a une question subsidiaire ?
je dois récuperer une info dans le champ N° 10 l'extraction du 00200048
une valeur de la forme:
2;4311555;972011259908;533222471945;
137687;0072128425;160312E13141118412000000;0;
;images13-03-20091MARE8900000200048.tif

Comment puis-je précéder SVP pour récuperer cette partie du champ N°10
?

Merci d'avance
Gilles LAURENT [MVP]
Le #19011541
"---DGI972---" message de
news:
| j'ai le droit a une question subsidiaire ?
| je dois récuperer une info dans le champ N° 10 l'extraction du
| 00200048 une valeur de la forme:
| 2;4311555;972011259908;533222471945;
| 137687;0072128425;160312E13141118412000000;0;
| ;images13-03-20091MARE8900000200048.tif

Extraire le nom du fichier sans extension :

- Méthode avec Split :

sLine=oFs.ReadLine
arrItems=Split(Split(Split(sLine,";")(9),".")(0),"")
sNumber=arrItems(UBound(arrItems))

- Méthode avec une Expression Régulière :

sLine=oFs.ReadLine
Set oRe=New RegExp: oRe.Pattern=".\(d+)."
sNumber=oRe.Execute(sLine)(0).SubMatches(0)

- Méthode avec l'objet FileSystemObject :

sLine=oFs.ReadLine
Set oFs=CreateObject("Scripting.FileSystemObject")
sNumber=oFs.GetBaseName(Split(sLine,";")(9))

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
---DGI972---
Le #19012011
Gilles LAURENT [MVP] avait énoncé :
"---DGI972---" message de
news:
j'ai le droit a une question subsidiaire ?
je dois récuperer une info dans le champ N° 10 l'extraction du
00200048 une valeur de la forme:
2;4311555;972011259908;533222471945;
137687;0072128425;160312E13141118412000000;0;
;images13-03-20091MARE8900000200048.tif



Extraire le nom du fichier sans extension :

- Méthode avec Split :

sLine=oFs.ReadLine
arrItems=Split(Split(Split(sLine,";")(9),".")(0),"")
sNumber=arrItems(UBound(arrItems))

- Méthode avec une Expression Régulière :

sLine=oFs.ReadLine
Set oRe=New RegExp: oRe.Pattern=".\(d+)."
sNumber=oRe.Execute(sLine)(0).SubMatches(0)

- Méthode avec l'objet FileSystemObject :

sLine=oFs.ReadLine
Set oFs=CreateObject("Scripting.FileSystemObject")
sNumber=oFs.GetBaseName(Split(sLine,";")(9))



Merci Gilles
J'ai de quoi 'bosser' pour finir mon petit projet ...
Publicité
Poster une réponse
Anonyme