Discussion :

[obelix]

Bonjour j'ai besoin d'un peu d'aide !

Je voudrais transformer un tableau HTML en csv. J'ai trouve un script qui marche bien http://coscorrosa.com/programs/cgi/html2csv/html2csv.pl mais mon pbl n'est pas completment resolu

la premiere colone de mon tableau HTML est NOM Prenom et je voudrais la decouper en deux dans mon fichier csv !

NOM Prenom | phone | mail
DUPOND,David | 324432432 | mail@mail.com

pour que cela donne ceci une fois mon csv importer dans un tableur

NOM | Prenom | phone | mail
DUPOND | David | 324432432 | mail@mail.com


une idee ? merci de votre aide

Obelix

[obelix]

voici un exemple plus cocnret !

"Nickname, suname", "phone", "mail", "comments"
"dupont, david", "432423", "mail@mail.com", "azerrttyyy"
"Gates, bill", "334323", "bill@msn.com", "dfsdsfdsfdfs"

vers


"Nickname", "suname", "phone", "mail", "comments"
"dupont", "david", "432423", "mail@mail.com", "azerrttyyy"
"Gates", "bill", "334323", "bill@msn.com", "dfsdsfdsfdfs"

le truc serait de detecter tout les 1er paquets "xxx" de chaques linges pour rempplacer la vurgule à l'interieur par ","

celaz pourrait suffir mais je sais pas comment faire ca en script !

merci de votre aide

[obelix]

j'avance petit a petit

je sais separer la premeire colone

$csv =~ s/\"Nom, prenom\"/\"Nom\",\"prenom/;

mais cela plante si je met un accent


maintenant il faut que je fasse apreil pour chaque debut de ligne mais avec de vrai Nom et prenom

[obelix]

bon ben je me repond moi meme et je simplifie le pbl

maintenant je veux transformer

"DUPOND, Alex"

en

"DUPOND", "Alex"


j'utilise ceci

$csv =~ s/\"\w*\s*,\s*\w*\"/\"NOM\",\"PRENOM\"/;

la condition est un
caractere "
suivi d'alphanum
suivi ou pas de plus sieurs espaces
suivi d'alpanum
suivi ou pas de plusieurs expaces

le pbl est cela m"efface tout les noms, prenoms, ca me donne

"NOM", "PRENOM"


comment sauveagrder les valeurs ? (noms et prenoms)

[Hide]

Code :

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

1
2
 
$csv =~ s/,/","/ ;

A essayer

[Hide]

Excuse je modifie l'expression car y a un espace qui rentre dans le début du Prenom.

Code :

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

1
2
 
$csv=~ s/(, )/", "/ ;

A toi de vérifier

[obelix]

je pense avoir touver la solution mais bizarre

// je recupere les "nom, prenom"
$chaine = grep(/\"\w*\s*,\s*\w*\"/ ,$csv);

// je remplace la virgule par la chaine ","
$chaine =~ s/,/\",\"/;

// je remplace les "nom, prenom" par "nom","prenom"
$csv =~ s/\"\w*\s*,\s*\w*\"/$chaine/;

le pbl est la vairable $chaine dont voici les traces :
11
21
10
20
10
20