Discussion :

[orbeman]

Bonjour,

Malgré mes recherches, je n'ai pas trouvé la façon d'écrire un fichier texte en mode direct (à la différence du mode séquentiel où l'on écrit ligne après l'autre. C'est à dire écrire directement à la ligne n ou du moins la remplacer.

Merci

[ProgElecT]

Salut

C'est à dire écrire directement à la ligne n ou du moins la remplacer.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Const ForReading = 1, ForWriting = 2
Dim oFso, f, t
Dim lectureLigne, sansEspace, ContenuLgn
Dim caNet, nbArticle, nbTicketCA
Set oFso = CreateObject("Scripting.FileSystemObject")
 
'Ouverture et lecture du fichier
	Set f = oFso.OpenTextFile("C:\PersoFrancis\test.txt", ForReading)
        'recuperation d'un tableau de x lignes
        ContenuLgn = split(f.ReadAll,vbnewline)
        f.close
        set f = nothing
        'lecture des 10 dernieres ligne en commencant par la derniere ligne
        for f = ubound(ContenuLgn) to ubound(ContenuLgn)-9  Step -1
                msgbox ContenuLgn(f)
        next

Ce code permet donc d'obtenir un tableau qui contient chaque lignes du fichier, pour écrire et remplacer une ligne N il suffit de réécrire dans la variable N voulue, de sauvegarder le fichier sous le même nom.
Pour ajouter une/des lignes, redimensionner la variable tableau (Redim Preserve) et procéder à l'enregistrement comme décrit précédemment.

[hackoofr]

Vous pouvez aussi utiliser la méthode SkipLine
L'omission d'une ligne implique la lecture et la suppression de tous les caractères d'une ligne, y compris du caractère de saut de ligne. Une erreur se produit si le fichier n'est pas ouvert en lecture.

L'exemple ci-dessous illustre l'utilisation de la méthode SkipLine :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function SkipLineInFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "Bonjour!" & vbCrLf & "Vive VB Script!"
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   f.SkipLine
   SkipLineInFile = f.ReadLine
   MsgBox SkipLineInFile
End Function
SkipLineInFile

[orbeman]

Merci à vous deux.

Ça me rassure parce qu'après avoir poster mon message j'avais quelque part qu'il n'était pas possible de gérer un flux de chaine caractère (ou quelque chose du genre).

Je fais une petite pause avant de n'y remettre au VBS et je vous en direz des nouvelles car je commence un peu à saturer...

[hackoofr]

voila un exemple ou on peut utiliser la méthode SkipLine dans une boucle For ... Next.
Le principe de ce script est d'ouvrir et lire son contenu puis il va sauter les 19 lignes par la méthode SkipLine qui se trouve dans une Boucle For....Next et de lire la dernière ligne (ligne 20 ):c'est un code d'une image en jpg qui a été encoder auparavant en Hexadécimal afin de la décoder et de la regénérer !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
Dim fso, f, f2, ts, ts2,Ligne, i
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(WScript.ScriptFullName)
Set ts = f.OpenAsTextStream(1, -2)
fso.CreateTextFile "HackooAvatar.jpg"
Set f2 = fso.GetFile("HackooAvatar.jpg")
Set ts2 = f2.OpenAsTextStream(2, -2)
for i=1 to 19
ts.skipline
Next
Do
Ligne = ts.readline
For i=2 to Len(Ligne) step 2
ts2.write chr( "&h" & mid(Ligne,i,2))
Next
loop until ts.AtEndOfStream
ts.Close
ts2.Close
'FFD8FFE000104A46494600010101006000600000FFDB0043000302020302020303030304030304050805050404050A070706080C0A0C0C0B0A0B0B0D0E12100D0E110E0B0B1016101113141515150C0F171816141812141514FFDB00430103040405040509050509140D0B0D1414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414FFC00011080064006403012200021101031101FFC4001F0000010501010101010100000000000000000102030405060708090A0BFFC400B5100002010303020403050504040000017D01020300041105122131410613516107227114328191A1082342B1C11552D1F02433627282090A161718191A25262728292A3435363738393A434445464748494A535455565758595A636465666768696A737475767778797A838485868788898A92939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F0100030101010101010101010000000000000102030405060708090A0BFFC400B51100020102040403040705040400010277000102031104052131061241510761711322328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728292A35363738393A434445464748494A535455565758595A636465666768696A737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00FD41CF4F7A4EE7DBA50DC5273DB1F95040EA33914BCF38A45EB8A00F3CF8C7F1E7C13F02F43B7D4BC61AC0D3D6E5DA3B4B58A2696E2E59402C238C727008249C019193C8CFCB5AFF00FC155FC2504AEBA1F8135AD453B497D770DA83E870039FD6BC63FE0AD5E2C962F8BFE0BD26DA4DDF62D09EE1D1864665B938C8FA44B5F0FDA788F85FF4728EC32C55C8538FCEA357B1AA8AB5D9FA589FF05567790EFF008680277C6B6777FE89C575DE19FF0082A1F8235195535DF086BFA2A12374B6D243791AE7B91946FC857E5CC5E24555244049C0C0127FF5AA39FC5121FF005704718CF05B2C7F5EF47BC82C8FDF9F87DF11BC3DF14FC2B69E22F0C6A4BAAE9373B824CA8C85594E191D5802AC0F5047F4CF4A00C77AF883FE0941E286D6FE0CF8BB4F9A42D3D8EBE5F07B2CB046463DB28D5F6F8C0E2AD6C66D59E8038C67D29690E79C75EF40CE39A0428E474A280A71FF00D6A2800072281C3734640E07AD72DF123E257877E14785AEFC45E28D521D2B4AB6C069640599D8FDD4441F33B9ECAA3271E80905D2DC0EA1486CE3D6946594950481DD466BF357E2EFFC14FBC4BAD5D5CD9FC3BD16DFC3F600ED4D4F558C5CDE4839F98479F2D3E8779AF967C6DF1E3E22F8FE591BC43E39D735156E4446F9E28803D8247B57F4A8725D0D3959D7FF00C149FC49FDBDFB5C789E00E5E3D2ECAC74F5C73B710091C7E0D2D7CCB1C2502701860E4E39A8AEAF9B50D56F19DE4964DE46F67DE5F1C649EB56A1B598018563C7F09EB55A22BC8555DA012013CE323B76A8AE1F8E30A01AB46DA664042313D380722A19AC6E06E5F2B19EED4732EE07E82FFC1207C40575FF0089DA2961B65B5B1BE0A3D55E58C9C7D1D47E55FA5C0819E3241E6BF023E047C69F16FC07F185DEAFE12D4574DD42E6D0DB4DE6C493472C7BC3156470411900E71906BECDF027FC1563C4D62D0C7E30F05E9DABC4386B9D2276B498FBEC6DE87D7A8FC293767664B8B7A9FA5B8FC07A506BC07E0EFEDC1F0AFE32DD41A758EB2FA06BB37CB1E95AEA8B79246FEEC6F931B9F60D9F6AF7D5248E460FA7A534EE43560F97DE8A41D28A6215C7619CF6C0AFCADFF829BF8D75CD5BE3ADAF86AEA4921D0B4AD36DEE2C6DCFDC91E656324D8EED91B3D82638E73FAA4FCD781FED55FB27687FB4BE876924976744F14E9A8CB61ABA47E60D84E4C332020BC64F3C1054E483CB0332D8A8BB33F1BC168D703385E8319E7EB515CED78470083FC47B7D457B47C53FD8DBE317C2D9676D43C2B75AA69B1671AA685FE996ECB9EA420DE9C73F320C5787B47730CD2C525BCCB246DF3285CB29F718E3F1C5668D8E4ED34F9F4E9D9E78DDB7392CCBD0827AFD2BA7B19E39600C08CFAF4351CF76D190ACBB7BE0F0C7F0ED56EDEE37C6580C127A8007E354EED2417B0E0E149E8466A3B99235898918241E4559FB4ECFBE517DF1F354525E5B123CCE791C7523F0A951D6EC3A981A358DC49A81B9656445DC07980FCD9E2BA111609E4B7D075A75BC7F6D7C5BC2F3B1E00442D5D7781BE0D78DFE23DE8B5F0C786752D6A662149B3B76744FF79FEE28F52CC2ADDDB0D8E5122F948FE063DFA71CD7EB7FFC13C7C6FE29F1C7ECFB1CDE279EE6FC58EA335869D7B7796926B645420163CBEC72F18273C28049DB5E0BF02FFE098B7F73756DAA7C51D523B5B3521CE81A4C9BA597FD99671C2AFA88F24FF7857E84787BC3FA6785745B1D2348B0834DD32CA2582DACED902471463A2A81D07F89CE4F34256224D1A58FC28A5C8F7A2ACC869EC338A3038CE694F24FB52609FA50031895F986411DD7AD7E357FC150FE355BFC40F8EF178734268E3B3F0AAB5ACD7768A15E6BA620CC4B8F9982E150027036B7AD7EA8FED01E24D67C29F097C41A9682234D46180913CCE891C11804C9231765030A0E327A91D7A57F3E3AE5F4DAC6B5A85EDD4AF25C4D2EE672724B3BE5893EFCD65376691D34A37F78EE3E086A13F897C610E9FACDD5C5E69D223FEEDE4E720750C41238AFAAADFF0067DF085EE933DE917D68D1A19096963C7AF2193DEBE1DF0BF89E6F096A9A7EAD6FF3BDADD2C8D18E0491F2197E85491F8D7D71A7F892FF00488239F4CD11FC5FE13D4112F2D63B49D52FA052416550FC4881D5B2B9CA92460AE2B09B95F46745D24D58DDF0AFECFDE1BD734FB0B89EEAF3374EEA42F94A32AD818CA9E4D749AF7ECFFE02F0ACF12A0D42ED0AEE769A55455E33CED519FCEB1347F895AC787BC23E156D43E1FEA1710CED7293C3A65C2DC5E42D9CC7BE1DABB73D793E9D3A5617C4BF1D5EE99E1BD77C5BAD69BFF08FC71442DF4AD19A70F2F9AF9C3CFB4ED3231C108321110F77ACAF3269E9F123E60D775FBCBAF186A16B1DEDCFF6725DC91C36FE610A23DE768E3FD9C73D6BF77BF658BFFED4FD9CBE1D4C36ED3A341190AB804A0299C0E3276F3EF5FCFF002B48DAA34B23F9AECDE63B9EE4F3935FB09FF04E5FDA1F46F11FC32D2BE1D5F5D18BC4BA634BF64B73139F3ED4B170430180509604123A0C6735D70F76C999544DC6F15B1F697F0E3DE93A52ED3DF8E695B919AD8E54342923A9A29C14FB51401CC7C46F889E1DF857E0CD4FC51E27D4134BD1B4F8C493CF20249C9C2A2A8E59D890028E4935F9D9F147FE0B1B3DBDD4D07807E1FC525BAE7CBBFF00125DB6E7F7F262FBA3B805CFE15E37FB75FED7EFFB4578BD744F0F4F2C3F0FF489375A02A51B509F186B9743CE392A8ADF7412719638F916FB4E2E0BCADE528E48EA7F1F4A86DB66AA291EB1F1FF00F6E8F8B7FB42690FA3F8A35DB7B4D01E4598E8FA45AADB40ECA72BBCF2EF83C80CC464038CD78B8B9F343BEE3F3BA1FC40CD569922451F2AC71F5CB72CDF87F5A8ECE5579BCB058296565DC3938A563AA3B6859BDB61169E77923E6070A3AF5CFF003AF68FD98FE2EC3A26AF69E17D6E4034A9AE375A4F29F96091F864627A2B7CBEC180F5AF1FD737308E18C6C0A4100FD05657D9DE35FBE09F40BFE349C6EACC1DEDA1FA39E02F184D3FC51F891A6EAB35C43A2681089628AE67616F6AA0A02ED9C0F9C65873F28523BD7C63FB42FC5E3F153C50B1D9BB8F0FD9C852D10FCBE613F7A661D8B761D9428F5AE35FC5BE21BFB4BBB49756BB96DAE7CB5B8579DC8B8118C461F9F9820E141CE2B2A4B756704AED2A3B8E0FF87E359C6924EE09DDEA74C96EAEA64501BE53F2E3AF040E6A29B5EBEB76B39ED2EE7B2BCB660527B695A3753C7465208208A347B876B56DC7081063278E86B1958B3919E9DFB5696B837647DA1FB34FFC14C3E20FC2048B47F17F9BE3FF000EAB647DBE73F6FB75EFE5CE73BC7FB3203ECC2BF4FBE027ED47E00FDA334992E3C23AA93A85BA6FBBD1EF5447796C338DCC993B973FC6A4AFB8AFE7FAD914B00E319E8C3A5767E06F17EB9F0EBC4BA76BBE1FD4AE348D5AC5C4B6D7B6AE432377FAA9E854F0C090739ADAD63964933FA28276F5CFE54578C7ECDBFB45E93F1EBE12E93E2737369A7EA98FB26A964F3A45E4DDA01BC2863CA90CAEA7FBAE3B8345233B33F09B4E9E36825999551F77CB2CCC3E61EBF9F000AC7D5AFF007C5987054B11BDB9271DC0FEA6AC41A4C91C06F2EA40F73C470C49F7133C0C0F503279AC6BF758600B80AAACAABCFF00B150752DCA4F16E7DD96627A96EA691E229B641D5086FD7A559421B1DFE956D2DD586304E78C629A2B987DD7EF444FBB706503D7A542B11DE06DCFBE3A55C82D494DAC9C2E30076AB71D9A6F07007B914DA25CAEEC6669F17126793B8F4FA9A74B08DAE002037627157F4D846C91B6E46E3D78EF564DA82A4ED1F45349227667382E265630A9DAAA00207A7A55982DF0BB970738078E47F9F5ABB35AAC6FC201BBA9C735130F2DCBA9DAE3A6288A6B51B9364F670B29F94061DC1E9F515B56EA1942E083D87A565D95F5BCADB1C2C330C753853FE15AD1C45483CF5CE6B5BDCCD9662BCB8B55D884E339E28A4DA4F7A2A0454B87DEF17CAA3A1E077AE275B62F31CF69980FD3FC28A2A51B4771F66328A7B8AD8B451C0ED451544BDD9B114287B538C29BBA77A28A4C451D33889C8ECE6B4A285704E3FCFF009345152052B9019F27AD64DC8F9BF0A28AA40F6331DD96E1D81C32C6C41FC2BA4F0DDF4B7091A3E0825874F4A28AA5B0DF437947145145220FFFD9