façons de délimiter votre texte dans VBSCRIPT

Question

J'ai un fichier avec les entrées suivantes

"SMEGOLD 1312", 20131127, "C", "11606233E", "SMX", "C", 20131009,170028, » SMX "," 70207 ", 0,1,4699,0,469.9," USD ", 0," ", 0," ", 0," ", 0," ", 0,0,0,8062696," ", 0,20131009,170028, "SYSTEM", "25228", "", "166", "121328200000223", 785,0, "", "", "", "", "", "", "", "", "", "", "", "", 0,0,0, "", 20131009,170028, "ADVMEE"

"SMEGOLD 1312", 20131127, "C", "11606233E", "SMX", "C", 20131009,170030, "SMX", "70207", 0,1,4699,0,469,9, "USD", 0, "", 0, "", 0, "", 0, " ", 0,0,0,8062697," ", 0,20131009,170031," SYSTEM "," 25228 "," "," 167 "," 121328200000223 ", 786,0," "," "," " , "", "", "", "", "", "", "", "", "", 0,0,0, "", 20131009,170028, "ADVMEE"

Ce que je voudrais accomplir est d'obtenir seulement le premier texte de citation de la ligne. Exemple "SMEGOLD 1312". Ensuite, je voudrais ajouter les 3 premiers caractères et les 4 derniers caractères de ce texte extrait à l'arrière de la ligne.

Et de passer à la ligne suivante pour poursuivre la procédure jusqu'à la fin du fichier.

Tout conseil sera d'une grande aide. J'ai essayé d'utiliser le objRegEx.Pattern mais en vain

Merci

Answer 1

Utilisez un modèle qui coupe/groupes le premier champ toto (1), ses trois premiers (2) et ses quatre derniers (3) caractères et tout le reste (4). Puis .Remplacer de manière créative:

>> s = Replace("'SMEGOLD 1312','whatever','ADVMEE'", "'", """") 
>> WScript.Echo s 
>> Set r = New RegExp 
>> r.Pattern = "^((""[^""]{3})[^""]*?([^""]{4}""))(.*)" 
>> WScript.Echo r.Replace(s,"$1$4,$2$3") 
>> 
"SMEGOLD 1312","whatever","ADVMEE" 
"SMEGOLD 1312","whatever","ADVMEE","SME1312"