Je veux faire un saut de ligne lorsque que je vois des CAB et ROD en
position 29 lg 3 et dix sauts de ligne quand je vois des DET et des MSB
sauf que lorsqu'il y a n fois concécutif les DET101 ou DET102 ou DET103
ou DET191 et les MSG001 et MSG002 il ne faut pas les séparer par des
sauts de ligne entre eux mais après faire le complément de 10 sauts de
lignes (par ex: si 4 DET101 concécutifs et il faut 6 saut de lignes).
Voila mon début de code mais je ne trouve pas comment connaitre la
ligne d'avant ou d'après pour s'avoir si je fais les 10 sauts de ligne.
Set file1 = fso.OpenTextFile("D:\CABLE\_CABLE.txt")
Set file2 = fso.OpenTextFile("D:\CABLE\_CABLE2.txt",2, True)
Do Until file1.AtEndOfStream
SLine2 = file1.ReadLine
NOUV=Mid(SLine2,29,6)
if Mid(SLine2,29,3)="CAB" then Sline2=Sline2&vbcrlf
if Mid(SLine2,29,3)="ROD" then Sline2=Sline2&vbcrlf
if Mid(SLine2,29,6)="DET101" and ANC="DET101" then
Sline2=Sline2&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf
if Mid(SLine2,29,6)="DET102" and ANC="DET102" then
Sline2=Sline2&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf
if Mid(SLine2,29,6)="DET103" and ANC="DET103" then
Sline2=Sline2&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf
if Mid(SLine2,29,6)="DET191" and ANC="DET191" then
Sline2=Sline2&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf
if Mid(SLine2,29,6)="MSG001" and ANC="MSG001" then
Sline2=Sline2&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf
if Mid(SLine2,29,6)="MSG002" and ANC="MSG002" then
Sline2=Sline2&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf&vbcrlf
file2.Writeline SLine2
ANC=NOUV
loop
fileOut.Close
Je sais qu'il manque la boucle pour le complément à 10 des sauts de
ligne mais je ne sais pas par quel bout la prendre aussi.
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le message de news:
Bonjour,
Pour des raisons de confidentialités j'ai tronqué le véritable fichier. Et ce n'est que la partie visible de l'iceberg, je fais une traitement avant et aprés le fait de faire 10 crlf selon les différentes conditions.
Pour conserver les caractères accentués lors du traitement tout en restant dans la même philosophie, c'est à dire en ligne de commande en s'affranchissant du FSO, vous pouvez procéder de la manière suivante :
--- batch.cmd --- @echo off type dgi.txt | cscript //nologo codesnippet.vbs>dgi_temp.txt cmd /u /c type dgi_temp.txt>dgi_out.txt del dgi_temp.txt --- batch.cmd ---
Note: Le fichier de sortie dgi_out.txt sera au format Unicode
Houla c'est de pire en pire ...
J'ai des caractères spéciaux hexa 20 00 qui sont insérés entre chaque lettre.
Je ne veux pas m'affranchir du FSO.
Mais le cahier des charges a bougé entre temps je refais le ménage et je referrais un nouveau fils sur ce newsgroupe.
Merci encore
Gilles LAURENT [MVP] a écrit :
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de
news:mn.8cfa7d963ce81d2d.55474@NOSPAMlaposte.net
Bonjour,
Pour des raisons de confidentialités j'ai tronqué le véritable
fichier. Et ce n'est que la partie visible de l'iceberg, je fais une
traitement avant et aprés le fait de faire 10 crlf selon les
différentes conditions.
Pour conserver les caractères accentués lors du traitement tout en
restant dans la même philosophie, c'est à dire en ligne de commande en
s'affranchissant du FSO, vous pouvez procéder de la manière suivante :
--- batch.cmd ---
@echo off
type dgi.txt | cscript //nologo codesnippet.vbs>dgi_temp.txt
cmd /u /c type dgi_temp.txt>dgi_out.txt
del dgi_temp.txt
--- batch.cmd ---
Note: Le fichier de sortie dgi_out.txt sera au format Unicode
Houla c'est de pire en pire ...
J'ai des caractères spéciaux hexa 20 00 qui sont insérés entre chaque
lettre.
Je ne veux pas m'affranchir du FSO.
Mais le cahier des charges a bougé entre temps je refais le ménage et
je referrais un nouveau fils sur ce newsgroupe.
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le message de news:
Bonjour,
Pour des raisons de confidentialités j'ai tronqué le véritable fichier. Et ce n'est que la partie visible de l'iceberg, je fais une traitement avant et aprés le fait de faire 10 crlf selon les différentes conditions.
Pour conserver les caractères accentués lors du traitement tout en restant dans la même philosophie, c'est à dire en ligne de commande en s'affranchissant du FSO, vous pouvez procéder de la manière suivante :
--- batch.cmd --- @echo off type dgi.txt | cscript //nologo codesnippet.vbs>dgi_temp.txt cmd /u /c type dgi_temp.txt>dgi_out.txt del dgi_temp.txt --- batch.cmd ---
Note: Le fichier de sortie dgi_out.txt sera au format Unicode
Houla c'est de pire en pire ...
J'ai des caractères spéciaux hexa 20 00 qui sont insérés entre chaque lettre.
Je ne veux pas m'affranchir du FSO.
Mais le cahier des charges a bougé entre temps je refais le ménage et je referrais un nouveau fils sur ce newsgroupe.
Merci encore
Gilles LAURENT [MVP]
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le message de news: | Houla c'est de pire en pire ... | | J'ai des caractères spéciaux hexa 20 00 qui sont insérés entre chaque | lettre.
Ok ! Je passe la main !
Note: Merci de me fournir un extrait du fichier par messagerie.
-- Gilles LAURENT MVP Windows Server - Admin Frameworks http://glsft.free.fr
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de
news:mn.92f17d96f0a65930.33554@NOSPAMlaposte.net
| Houla c'est de pire en pire ...
|
| J'ai des caractères spéciaux hexa 20 00 qui sont insérés entre chaque
| lettre.
Ok ! Je passe la main !
Note: Merci de me fournir un extrait du fichier par messagerie.
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le message de news: | Houla c'est de pire en pire ... | | J'ai des caractères spéciaux hexa 20 00 qui sont insérés entre chaque | lettre.
Ok ! Je passe la main !
Note: Merci de me fournir un extrait du fichier par messagerie.
-- Gilles LAURENT MVP Windows Server - Admin Frameworks http://glsft.free.fr
jbongran
"Gilles LAURENT [MVP]" a écrit dans le message de news:
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le message de news: | Bonjour,
Bonjour,
| J'ai une nouvelle condition a rajouter ... [...]
Ci-dessous une version alternative à celle de Jérôme intégrant la nouvelle condition. En espérant que cela répondra à votre besoin.
[...]
Très joli, et nettement plus court ;-) Désolé d'avoir un peu déserté le newsgroup, mais c'était pour la bonne cause: nouveau travail et beta de Windows 7
"Gilles LAURENT [MVP]" <glsft@free.fr> a écrit dans le message de
news:u06A9ps7JHA.5008@TK2MSFTNGP05.phx.gbl...
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de
news:mn.79a37d96f97591fe.55474@NOSPAMlaposte.net
| Bonjour,
Bonjour,
| J'ai une nouvelle condition a rajouter ...
[...]
Ci-dessous une version alternative à celle de Jérôme intégrant la
nouvelle condition. En espérant que cela répondra à votre besoin.
[...]
Très joli, et nettement plus court ;-)
Désolé d'avoir un peu déserté le newsgroup, mais c'était pour la bonne
cause: nouveau travail et beta de Windows 7
"Gilles LAURENT [MVP]" a écrit dans le message de news:
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le message de news: | Bonjour,
Bonjour,
| J'ai une nouvelle condition a rajouter ... [...]
Ci-dessous une version alternative à celle de Jérôme intégrant la nouvelle condition. En espérant que cela répondra à votre besoin.
[...]
Très joli, et nettement plus court ;-) Désolé d'avoir un peu déserté le newsgroup, mais c'était pour la bonne cause: nouveau travail et beta de Windows 7
jbongran
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le message de news: [...]
AAHhhhhhhhh berk en cscript Les accents sont mal convertis. :'(
Voir le format utilisé dans les opentextfile (j'avait utilisé -2, à savoir la valeur système par défaut) http://msdn.microsoft.com/en-us/library/314cz14s(VS.85).aspx Il se peut aussi que ce soit une conversion ANSI <=> ascii à faire, et pour cela, il y le site du "maitre" Jean-Claude Bellamy: http://www.bellamyjc.org/fr/vbsdownload.html#ansi2oem et dans l'autre sens http://www.bellamyjc.org/fr/vbsdownload.html#oem2ansi
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:mn.8be17d9639bb7b2d.33554@NOSPAMlaposte.net...
[...]
AAHhhhhhhhh berk en cscript
Les accents sont mal convertis.
:'(
Voir le format utilisé dans les opentextfile (j'avait utilisé -2, à savoir
la valeur système par défaut)
http://msdn.microsoft.com/en-us/library/314cz14s(VS.85).aspx
Il se peut aussi que ce soit une conversion ANSI <=> ascii à faire, et pour
cela, il y le site du "maitre" Jean-Claude Bellamy:
http://www.bellamyjc.org/fr/vbsdownload.html#ansi2oem
et dans l'autre sens
http://www.bellamyjc.org/fr/vbsdownload.html#oem2ansi
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le message de news: [...]
AAHhhhhhhhh berk en cscript Les accents sont mal convertis. :'(
Voir le format utilisé dans les opentextfile (j'avait utilisé -2, à savoir la valeur système par défaut) http://msdn.microsoft.com/en-us/library/314cz14s(VS.85).aspx Il se peut aussi que ce soit une conversion ANSI <=> ascii à faire, et pour cela, il y le site du "maitre" Jean-Claude Bellamy: http://www.bellamyjc.org/fr/vbsdownload.html#ansi2oem et dans l'autre sens http://www.bellamyjc.org/fr/vbsdownload.html#oem2ansi
---DGI972---
jbongran a écrit :
"Gilles LAURENT [MVP]" a écrit dans le message de news:
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le message de news: | Bonjour,
Bonjour,
| J'ai une nouvelle condition a rajouter ... [...]
Ci-dessous une version alternative à celle de Jérôme intégrant la nouvelle condition. En espérant que cela répondra à votre besoin.
[...]
Très joli, et nettement plus court ;-) Désolé d'avoir un peu déserté le newsgroup, mais c'était pour la bonne cause: nouveau travail et beta de Windows 7
Bonjour,
J'ai bricolé votre Vbs et j'ai réusi a faire un fichier de sortie comme je le souhaite avec le nouveau cahier des charges ;-) .
Merci encore a vous et a gilles.
jbongran a écrit :
"Gilles LAURENT [MVP]" <glsft@free.fr> a écrit dans le message de
news:u06A9ps7JHA.5008@TK2MSFTNGP05.phx.gbl...
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de
news:mn.79a37d96f97591fe.55474@NOSPAMlaposte.net
| Bonjour,
Bonjour,
| J'ai une nouvelle condition a rajouter ...
[...]
Ci-dessous une version alternative à celle de Jérôme intégrant la
nouvelle condition. En espérant que cela répondra à votre besoin.
[...]
Très joli, et nettement plus court ;-)
Désolé d'avoir un peu déserté le newsgroup, mais c'était pour la bonne cause:
nouveau travail et beta de Windows 7
Bonjour,
J'ai bricolé votre Vbs et j'ai réusi a faire un fichier de sortie comme
je le souhaite avec le nouveau cahier des charges ;-) .
"Gilles LAURENT [MVP]" a écrit dans le message de news:
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le message de news: | Bonjour,
Bonjour,
| J'ai une nouvelle condition a rajouter ... [...]
Ci-dessous une version alternative à celle de Jérôme intégrant la nouvelle condition. En espérant que cela répondra à votre besoin.
[...]
Très joli, et nettement plus court ;-) Désolé d'avoir un peu déserté le newsgroup, mais c'était pour la bonne cause: nouveau travail et beta de Windows 7
Bonjour,
J'ai bricolé votre Vbs et j'ai réusi a faire un fichier de sortie comme je le souhaite avec le nouveau cahier des charges ;-) .
Merci encore a vous et a gilles.
Gilles LAURENT [MVP]
"jbongran" a écrit dans le message de news:
Bonjour,
| Très joli, et nettement plus court ;-)
Merci pour cette appréciation ;-)
| Désolé d'avoir un peu déserté le newsgroup, mais c'était pour la bonne | cause: nouveau travail et beta de Windows 7
Je vous souhaite une bonne réussite dans votre nouveau travail.
-- Gilles LAURENT MVP Windows Server - Admin Frameworks http://glsft.free.fr
"jbongran" <jbongran@free.fr> a écrit dans le message de
news:6CF7303C-07D3-4F54-A3E8-361D5F1944AD@microsoft.com
Bonjour,
| Très joli, et nettement plus court ;-)
Merci pour cette appréciation ;-)
| Désolé d'avoir un peu déserté le newsgroup, mais c'était pour la bonne
| cause: nouveau travail et beta de Windows 7
Je vous souhaite une bonne réussite dans votre nouveau travail.
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr