Comment analyser et modifier un fichier texte (Microsoft Query) via VBA

Salut,

j'ai des définitions de SQL Microsot Query (extension .dqy) que je voudrais modifier en VBA excel, essentiellement pour modifier la clause WHERE en fonction des besoins de l'utilisateur.

Exemple de contenu :

Code:

---

1 2 3 4 5

SELECT LST_SORM1C.PERIODE, LST_SORM1C.WSCDZT, LST_SORM1C.NOCTE, LST_SORM1C.DEPAZT, LST_SORM1C.ART, LST_SORM1C.DESCIT, LST_SORM1C.DTMVZT, LST_SORM1C.QTE, LST_SORM1C.UNMDZT, LST_SORM1C.DEM, LST_SORM1C.NOM, LST_SORM1C.PROJZT, LST_SORM1C.NLVLZT FROM BHARIE01.IPPAHARTRF.LST_SORM1C LST_SORM1C WHERE (LST_SORM1C.DEPAZT='605') OR (LST_SORM1C.DEPAZT='606') ORDER BY LST_SORM1C.WSCDZT, LST_SORM1C.DEPAZT, LST_SORM1C.NOCTE

---

La partie en gras est celle que je voudrais récupérer et mettre à jour.

Est-ce qu'il y un tuto ou une interface pour modifier ce genre de fichier (.dqy).

Je suppose que cela peut se traiter en format .TXT (en espérant que les lignes ne dépassent pas 256 bytes).

Si quelqu'un à une suggestion, je suis preneur ! 8-)

Où as-tu vu qu'une ligne de txt ne devait pas dépasser 256 caractères ?
Si tu es certain que c'est un txt, tu peux faire ça en lisant ton texte ligne par ligne et en écrivant chaque ligne dans un nouveau txt et en remplaçant ta ligne par la nouvelle au passage.
Signifie l'ouverture de 2 txt, l'un avec Input, l'autre avec Output.
Pour écrire, tu utilises Print (because les parenthèses de Write)
Quand c'est fini, tu renommes ton fichier corrigé.
Un conseil : Fais une sauvegarde de l'original ;)
Pour le code, si tu en as besoin, tu demandes...
A+

bonjour,

ne serait -il pas mieux de passer par des parametres?

si toutefois, les champs de recherches restent identiques bien sur!

Ben,

si tu le proposes si gentiment, si je pouvois avoir un exemple de code qui fait cela (y compris la fonction de recherche et de remplacement de base que je peux étoffer moi-meme après).

Autant pour moi qui croyais qu'un string c'est maxi 256 bytes :aie:.

Attention que l'instruction à remplacer

Code:

---

1 2	WHERE (LST_SORM1C.DEPAZT='XXX')

---

peut donner lieu à une clause plus complexe avec des OR du genre

Code:

---

1 2	WHERE (LST_SORM1C.DEPAZT='605') OR (LST_SORM1C.DEPAZT='606') OR (LST_SORM1C.DEPAZT='615')

---

Et encore :merci::yaisse3: pour ton aide et temps.

Mayeukel,

je ne comprends pas ce que tu proposes.

Mon but est d'adapter un Query existant pour une application qui tourne sur différents PC en utilisant ce query pour sélectionner les données à montrer.

En fait, il faut extraire les données des départements qui concernent la personne en question, et pas les autres.

J'avais pensé au moment de l'installation avoir une routine pour adapter ce query car pour le moement je me le farçi à la paluche, mais comme on installe souvent des nouveaux pcs, je voudrais avoir un truc plus simple à installer.

:roll:

dasn ms query, tu peux passer par des parametres représenté par une cellule par exemple.

tu lui dis par exemple que parametre1 = la cellule A1
en passant par une feuille cachée, ça devrait le faire non?

tu es sous quelle version d'excel?

Citation:

---

Envoyé par Godzestla

Attention que l'instruction à remplacer

Code:

---

1 2	WHERE (LST_SORM1C.DEPAZT='XXX')

---

peut donner lieu à une clause plus complexe avec des OR du genre

Code:

---

1 2	WHERE (LST_SORM1C.DEPAZT='605') OR (LST_SORM1C.DEPAZT='606') OR (LST_SORM1C.DEPAZT='615')

---

---

Ça, s'il s'agit bien d'un txt (re) on s'en f... :mouarf:
On ne fait pas une recherche dans le texte, on teste chaque ligne. Si ton code est long, ce sera plus long... et réciproquement...
AVANT de tester, sauvegarde ton fichier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Test() Dim LaLigne As String Open "C:\TonRep\TonFichier.dqy" For Input As #1 Open "c:\TonRep\TonFichierCorrigé.txt" For Output As #2 Do While Not EOF(1) Input #1, LaLigne If LaLigne = "WHERE (LST_SORM1C.DEPAZT='XXX')" Then LaLigne = "WHERE (LST_SORM1C.DEPAZT='605') OR (LST_SORM1C.DEPAZT='606') OR (LST_SORM1C.DEPAZT='615')" End If Print #2, LaLigne Loop Close #1 Close #2 Kill "C:\TonRep\TonFichier.dqy" Name "c:\TonRep\TonFichierCorrigé.txt" As "C:\TonRep\TonFichier.dqy" End Sub

---

Tu dis ;)
A+

Je vois venir la question : Si au lieux de 'XXX' tu as un nombre ou un string variable, utilise Like et ses avatars (jokers comme dirait ucfoutu ;) "?", "#"... etc)

Code:

---

1 2 3

If LaLigne like "WHERE (LST_SORM1C.DEPAZT='" & "###" & "')" then 'ou If LaLigne like "WHERE (LST_SORM1C.DEPAZT='" & "???" & "')" then

---

Merci... mais ce n'est pas aussi simple.

Il y a 2 problèmes :

1)la Clause Where à remplacer n'est pas sur une seule ligne.

Quand je fais debug.print des lignes en Input, j'obtiens

Citation:

---

XLODBC
1
DRIVER={Client Access ODBC Driver (32-bit)};SYSTEM=BHARIE01.RAE.COM;CMT=0;DBQ=CTWRK
IPPAHARTRF;NAM=0;DFT=5;DSP=1;TFT=0;TSP=0;DEC=0;XDYNAMIC=1;RECBLOCK=2;BLOCKSIZE=32;SCROLLABLE=0;TRANSLATE=0;LAZYCLOSE=1;LIBVIEW=0;REMARKS=0;CONNTYPE=0;SORTTYPE=0;PREFETCH=0;DFTPKGLIB=QGPL;LANGUAGEID=ENU;SORTWEIGHT=0;SSL=2;SIGNON=3;MAXFIELDLEN=32;COMPRESSION=0;ALLOWUNSCHAR=0;SEARCHPATTERN=1;MGDSN=0;
SELECT LST_SORM1C.PERIODE
LST_SORM1C.WSCDZT
LST_SORM1C.NOCTE
LST_SORM1C.DEPAZT
LST_SORM1C.ART
LST_SORM1C.DESCIT
LST_SORM1C.DTMVZT
LST_SORM1C.QTE
LST_SORM1C.UNMDZT
LST_SORM1C.DEM
LST_SORM1C.NOM
LST_SORM1C.PROJZT
LST_SORM1C.NLVLZT FROM BHARIE01.IPPAHARTRF.LST_SORM1C LST_SORM1C WHERE (LST_SORM1C.DEPAZT='XXX') ORDER BY LST_SORM1C.WSCDZT
LST_SORM1C.DEPAZT
LST_SORM1C.NOCTE


PERIODE WSCDZT NOCTE DEPAZT ART DESCIT DTMVZT QTE UNMDZT DEM NOM PROJZT NLVLZT

---

et je ne crois pas que tu puisses te baser sur une position relative dans le record car à mon avis la recopie dans ce post change aussi la mise en page. :aie:

2) La virgule est considérée comme un séparateur de record en input et n'est pas réintégrée en output, mais elle est nécessaire pour le DQY car après il n'est plus réinterprétable.

je joints les fichiers input et output pour comparaison et explication

mayekeul,

je suis en Excel 2003.

Mayekeul,

tu aurais un exemple de ceci ?

Citation:

---

tu lui dis par exemple que parametre1 = la cellule A1
en passant par une feuille cachée, ça devrait le faire non?

---

bon je vais te mettre un ou deux screen shot (c'est plus parlant )
mais moi c'est une version 2007
pour msquery, ça devrait etre le même de toute façon.

J'ai bien une solution pour corriger le tir mais le bricolage que j'ai à proposer tourne à l'usine à gaz. Alors si Mayekeul a une solution "propre" il serait mieux de l'utiliser.
En dernier recours, j'ai un "truc" ;)

n'hésites pas si c'est pas clair pour toi!
(ce qui est fort probable ;) )

Mayekeul,

merci pour le truc, je ne connaissais pas.
Je viens de tester sur un nouveau fichier avec un critère simple en parametre, du genre :

Code:

---

1 2	WHERE (LST_SORM1C.DEPAZT=?)

---

en utilisant ton système de paramétrage et cela marche parfaitement
j'ai maintenant 2 questions, sur le détail :

1) Si mon critère n'est pas simple mais complexe , du genre :

Code:

---

1 2	Where ((LST_SORM1C.DEPAZT='601') OR (LST_SORM1C.DEPAZT='605') OR (LST_SORM1C.DEPAZT='607'))

---

je ne parviens pas à faire bouffer une valeur > 3 bytes au prompt de parametre. J'en déduis que je ne peux combiner plusieurs critère OR dans mon parametre. il y a une parade ou je dois définir un nombre de parametre maxi et les initialiser tous à la valeur unique si je ne veux tester que sur une valeur. ?(tu piges mon chinois).

ce qui me donne quelquechose du genre (voi miniature)

Code:

---

1 2	WHERE (LST_SORM1C.DEPAZT=?) OR (LST_SORM1C.DEPAZT=?) OR (LST_SORM1C.DEPAZT=?) OR (LST_SORM1C.DEPAZT=?) OR (LST_SORM1C.DEPAZT=?)

---

2) Mon Query "ancien" étant défini actuellement via excel mais sauvé hors (pas de possibilité de l'éditer via Excel), et accédé via

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

Sub Input_External() ' ' Input_External Macro ' Macro recorded 2005-01-13 by A477453 '   ' On Error GoTo Error_Handling Sheets("External").Select Cells.Select Selection.ClearContents Selection.QueryTable.Delete ignore: Range("A1").Select With ActiveSheet.QueryTables.Add(Connection:= _ "FINDER;C:\DATA\Transfert\10-Controlling\Stock Movement Analysis\Current Month\Selective Sorties Mois 0.dqy" _ , Destination:=Range("A1")) .Name = "RVK Sorties Mois 0" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = True .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With GoTo End_sub Error_Handling: If Err.Number = 1004 Then Resume ignore If Err.Number <> 0 Then Msg = "Error # " & Str(Err.Number) & " was generated by " _ & Err.Source & Chr(13) & Err.Description MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext End If   End_sub: End Sub

---

(NB : je sais que le code est pas top. c'est un vieux, je vais enlever au moins les Select !!!)

je cherche maintenant comment adapter mon application Excel sans devoir tout refaire (Pivot...)
Je voudrais juster Scratcher la définition d'import et intrégrer la nouvelle avec les variables.

C'est quoi la méthode Mayekeul rapide et efficace ? :mouarf::roll:

J'ai essayé de tout modfier comme un grand, mais à chaque exec il me demande de lui encoder les parametres ou la référence à la cellule à utiliser.

Grrrrrrrrrrrrrrrrr :evilred::evilred::evilred:

Comme je ne suis pas certain de repasser par là, ça ne te coûte que quelques secondes pour tester ça...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Test() Dim LaLigne As String, tablo as variant Open "C:\TonRep\TonFichier.dqy" For Input As #1 Open "c:\TonRep\TonFichierCorrigé.txt" For Output As #2 Do While Not EOF(1) Input #1, LaLigne Tablo = Split(LaLigne, ",") If LaLigne = "WHERE (LST_SORM1C.DEPAZT='XXX')" Then LaLigne = "WHERE (LST_SORM1C.DEPAZT='605') OR (LST_SORM1C.DEPAZT='606') OR (LST_SORM1C.DEPAZT='615')" End If Print #2, Join(Tablo, ",") Loop Close #1 Close #2 Kill "C:\TonRep\TonFichier.dqy" Name "c:\TonRep\TonFichierCorrigé.txt" As "C:\TonRep\TonFichier.dqy" End Sub

---

Pas certain que ça règle ton pb mais bon...
Bonne chance avec tes démêlés avec Query. ;)

Vraiment désolé,

mais ça le fait pas car le problème est sur l'input qui ne lit que jusqu'à la virgule ! :evilred:
Donc le split ne donne rien.

mais merci d'avoir essayé. :king:

C'est ce que je craignais :( car alors le délimiteur devient un vbcrlf et pour distinguer un vbcrlf d'un autre... :cry:

Si on moins il existait du code pour lire soit le fichier en entier soit (idéalement) un record complet jusqu'à CRLF ? :oops::(

Ca soit exister, non ?

j'ai fouillé dans la lecture des fichiers .ini qui sont aussi en format texte, mais c'est pas gagné d'avance car ca utilise kernel32... :aie:

Mais bien évidement :

Code:

---

Line Input

---

au lieu de

Code:

---

Input

---

:yaisse2:

Avec cela Ousk', ton code tourne beaucoup mieux.
C'est ok pour la lecture.

reste maintenant à détecter "Where" quelquepart dans un record et le remplacer par la nouvelle valeur.

Quelle est le code pour rechercher

Citation:

---

WHERE (LST_SORM1C.DEPAZT='XXX')

---

dans un string :?

La der des ders mais tu en auras deux pour le pris d'un.
Proposition 1
Tu ouvres ton fichier dans Excel, séparateur "," ou ";". On s'en fout.
Et tu reconstitues ta ligne comme tu veux en respectant les virgules (autant de colonnes que de virgules) et tu enregistres ton fichier en tant que txt.
On renomme et on vérifie
Proposition 2
Si tu connais le N° de ligne sur laquelle faire ton charcutage, peut-être cela peut-il fonctionner en ouvrant le txt en mode Random. dans lequel tu peux fixer la longueur de la ligne. Pas garanti ! Du tout ! J'ai planté Excel ... J'ai dû laissé une petite erreur en modifiant mon code pour passer du mode input au mode random :cry:
On apprend aussi en travaillant :aie:

bonjour,
et désolé du retard, j'ai du fuir comme un lache
alors qu'est-ce que j'allais je dire? ;)

Citation:

---

je ne parviens pas à faire bouffer une valeur > 3 bytes au prompt de parametre. J'en déduis que je ne peux combiner plusieurs critère OR dans mon parametre. il y a une parade ou je dois définir un nombre de parametre maxi et les initialiser tous à la valeur unique si je ne veux tester que sur une valeur. ?(tu piges mon chinois).

---

euh pas trop lol
avoir plusieurs parametres ne pose en principe pas de problemes.

sinon, j'ai un autre truc, peut-etre plus "simple" si je puis dire.

Voici le Code de Ouskelnor que j'ai adapté.

Le remplacement est en dur mais je vais paramétrer cela maintenant.

Merci Mayekeul pour ton aide, mais comme je ne t'entendais plus, j'ai continué à avancé par une solution de code comme proposé par Ouskelnor.

Bonne journée à tous les 2 et encore merci.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub Test() Dim LaLigne As String, tablo As Variant Dim Where_pos As Long Dim End_Where As Long Dim beg_ligne As String Dim End_ligne As String   Open "C:\DATA\Test\Selective Sorties Mois 0.dqy" For Input As #1 Open "C:\DATA\Test\TonFichierCorrigé.txt" For Output As #2 Do While Not EOF(1) Line Input #1, LaLigne Where_pos = InStr(1, LaLigne, "WHERE", vbTextCompare) If Where_pos > 0 Then End_Where = InStr(Where_pos, LaLigne, ")", vbTextCompare) If End_Where > 0 Then beg_ligne = Left(LaLigne, Where_pos - 1) End_ligne = Right(LaLigne, Len(LaLigne) - End_Where) LaLigne = beg_ligne & "WHERE (LST_SORM1C.DEPAZT='605') OR (LST_SORM1C.DEPAZT='606') OR (LST_SORM1C.DEPAZT='615')" & End_ligne End If End If Debug.Print LaLigne Print #2, LaLigne Loop Close #1 Close #2 Kill "C:\TonRep\TonFichier.dqy" Name "c:\TonRep\TonFichierCorrigé.txt" As "C:\TonRep\TonFichier.dqy" End Sub

---

:bug::merci::resolu:

De rien, et désolé de n'avoir pu t'aider plus!

Citation:

---

De rien, et désolé de n'avoir pu t'aider plus!

---

:bravo: C'est déjà Nickel comme cela. merci encore.