Ecriture directe fichier texte

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

Salut

Citation:

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

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.

:salut:
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:

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

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...

:salut: 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:

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