[..] Preg_Match en Autoit

[networe]

Bonjour,

J'ai une énorme base de donnée en texte et j'aimerais que

(21, 1, 1, '<p>Bourgogne</p>', '<p>Bourgogne</p>', 'mustang-gt-convertible-1989', '', '', '', 'Mustang GT Convertible 1989', 'In Stock', ''),
(26, 1, 2, '', '', 'shelby-gt-500-1969', '', '', '', 'Shelby GT-500 1969', 'In Stock', ''),

Deviennent :

(21, 1, 1, '<p>Bourgogne</p>', '<p>Bourgogne</p>', 'mustang-gt-convertible-1989', '', '', 'Mustang GT Convertible 1989', 'Mustang GT Convertible 1989', 'In Stock', ''),
(26, 1, 2, '', '', 'shelby-gt-500-1969', '', '', 'Shelby GT-500 1969', 'Shelby GT-500 1969', 'In Stock', ''),

Donc que ne gros ( Suivi de n'importe quoi jusqu'à ', '', '', '', ' prendre ce qu'il y a jusqu'à ', 'In Stock', ''), puis le copier dans le 3eme '' vide

Comment faire cela , je suis vraiment nul dans les pregmatch

Merci !

[mikell]

En l'occurence c'est plutôt du preg_replace

Code : Tout sélectionner

$str1 = "(26, 1, 2, '', '', 'shelby-gt-500-1969', '', '', '', 'Shelby GT-500 1969', 'In Stock', ''),"
Msgbox(0,"", _Rectif($str1) )

$str2 = "(21, 1, 1, '<p>Bourgogne</p>', '<p>Bourgogne</p>', 'mustang-gt-convertible-1989', '', '', '', 'Mustang GT Convertible 1989', 'In Stock', ''),"
Msgbox(0,"", _Rectif($str2) )

Func _Rectif($txt)
   Return StringRegExpReplace ($txt, "^(?:.*?\K('.*?')){6}(,\h*)('.*?')" , "$3$2$3")    
EndFunc

Traduction du regex : "remplace la 6ème occurence de ('.*?') par la suivante en n'oubliant pas la virgule et l'espace entre les 2 "
Pour traiter toutes les lignes d'un fichier txt :

Code : Tout sélectionner

;$str1 = "(26, 1, 2, '', '', 'shelby-gt-500-1969', '', '', '', 'Shelby GT-500 1969', 'In Stock', '')" &@crlf& _ 
;   "(21, 1, 1, '<p>Bourgogne</p>', '<p>Bourgogne</p>', 'mustang-gt-convertible-1989', '', '', '', 'Mustang GT Convertible 1989', 'In Stock', '')"
$str1 = FileRead("1.txt")
Msgbox(0,"", _Rectif($str1) )

Func _Rectif($txt)
   Return StringRegExpReplace ($txt, "(?s)\((?:.*?\K('.*?')){6}(,\h*)('.*?')" , "$3$2$3")    
EndFunc

[networe]

Merci !

Y a-t-il un moyen de mieu comprendre StringRegExpReplace pour en arriver facilement à (?s)\((?:.*?\K('.*?')){6}(,\h*)('.*?')

Et d'où viens le $3$2$3 ?

Merci

[networe]

Mince ! Souvent il y avait exemple des ' avant ou même deux '' dans les description avant, donc plusieurs bug sont survenu (Il y a 6000+ lignes) donc aller avec une logique du 6eme ' ' n'est pas valide dans mon cas

[mikell]

Pour traiter 6000+ lignes, vaut mieux avoir une logique, quelle est la logique valable dans tous les cas ?
On peut essayer de traiter chaque ligne en partant de la fin

Code : Tout sélectionner

$str1 = "(26, 1, 2, '', '', 'shelby-gt-500-1969', '', '', '', 'Shelby GT-500 1969', 'In Stock', '')" &@crlf& _
   "(21, 1, 1, '<p>Bourgogne</p>', '<p>Bourgogne</p>', 'mustang-gt-convertible-1989', '', '', '', 'Mustang GT Convertible 1989', 'In Stock', '')"
;$str1 = FileRead("1.txt")
Msgbox(0,"", _Rectif($str1) )

Func _Rectif($txt)
 $txt2 = ""
 $parts = StringRegExp($txt, '(\(.+?\))', 3)  ; récupère les parties entre parenthèses
 For $i = 0 to UBound($parts)-1
   $res = StringRegExp($parts[$i], "(, '.*?')", 3)  ; sépare les blocs de type : (, 'xxx')
   $a = UBound($res)-1
   $txt2 &= StringReplace($parts[$i], $res[$a-3]&$res[$a-2], $res[$a-2]&$res[$a-2], 1, 1) & @crlf
 Next
 Return $txt2
EndFunc

[networe]

En choisissant str1 = fileread, j'obtient : Error: Subscript used with non-Array variable

[mikell]

Strange... si ton fichier est de cette forme

Code : Tout sélectionner

(21, 1, 1, '<p>Bourgogne</p>', '<p>Bourgogne</p>', 'mustang-gt-convertible-1989', '', '', '', 'Mustang GT Convertible 1989', 'In Stock', '')
(26, 1, 2, '', '', 'shelby-gt-500-1969', '', '', '', 'Shelby GT-500 1969', 'In Stock', '')
etc

et si le chemin du fichier dans le FileRead est bon ça doit marcher
Tu posterais pas ton txt en pièce jointe ?

[networe]

Il y a des :

INSERT INTO `ps_product_lang` (`id_product`, `id_shop`, `id_lang`, `description`, `description_short`, `link_rewrite`, `meta_description`, `meta_keywords`, `meta_title`, `name`, `available_now`, `available_later`) VALUES
(18, 1, 1, 'Turquoise', 'Turquoise', 'ford-mustang-cobra-1993', '', '', '', 'Ford Mustang Cobra 1993', 'In Stock', ''),
(18, 1, 2, 'Turquoise', 'Turquoise', 'ford-mustang-cobra-1993', '', '', '', 'Ford Mustang Cobra 1993', 'In Stock', ''),
(19, 1, 1, 'Bourgogne et gris', 'Bourgogne et gris', 'ford-mustang-gt-1992', '', '', '', 'Ford Mustang GT 1992', 'In Stock', ''),
(19, 1, 2, 'Bourgogne et gris', 'Bourgogne et gris', 'ford-mustang-gt-1992', '', '', '', 'Ford Mustang GT 1992', 'In Stock', ''),

[mikell]

OK, remplace juste cette ligne dans le script

Code : Tout sélectionner

 $parts = StringRegExp($txt, '(\(\d.+?\))', 3)  ; récupère les parties entre parenthèses

[networe]

Array variable subscript badly formatted

[jchd]

Euh, ça ne serait pas plus simple et beaucoup plus fiable de faire une paire d'update de la base de données ?

update latable set lacolonneX = lacolonneY where lacolonneX = '';
update latable set lacolonneZ = lacolonneY where lacolonneZ = '';

A adapter, évidemment.

[networe]

Oh mon dieu ---______---

J'ai lu à quelque part : La solution la plus simple est toujours la meilleure

Merci jchd et merci Mikell

[jchd]

Ouaip, quite à passer par une table temporaire pour importer le fatras, le remettre au propre, éventuellement faire toutes vérifs requises dessus et hop, insert massif dans la vraie table en dur.

Même si c'est un job de routine, ça s'automatise probablement mieux que bidouiller dans des csv incomplets.

Tant mieux si cette voie t'inspire.