Effacer la 1ere ligne d'un fichier Résolu/Fermé

Question

Bonjour, 

J,ai trouvé un code sur le net que j,ai tenté de mettre à ma main pour ce que je cherche à faire, mais même si en apparence tout semble fonctionner, dans les faits, après avoir exécuter mon petit script pour copier mon fichier d'origine sans la 1ere ligne, mes autres codes vbs, fonctionnel lorsque j'efface la 1ere ligne manuellement, me donne un code d'erreur lorsque j'utilise le fichier créé uniquement avec le code en vbs. Ce qui me porte à croire que le code effacerait probablement plus que seulement la 1er ligne du fichier source.

Qu'est-ce qui ne va pas dans mon code? Je cherche seulement à effacer la 1ere ligne de mon fichier source.

Voici le code en question:

Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\......players.ehm", ForReading)
strContents = objFile.ReadAll
objFile.Close
Set objFile = nothing
strContents = replace (strContents, chr(10) + chr(10), chr(10))
'msgbox strContents
arrLines = split(strContents, VBLF)
'msgbox (Ubound(arrLines) + 1) & " Lines in file"
Set objFile = objFSO.CreateTextFile("C:\......players1.ehm", ForWriting)
For i = 1 to UBound(arrLines) - 1
objFile.WriteLine arrLines(i)
Next
objFile.Close
Set objFile = nothing
Set objFSO = nothing



Merci beaucoup à l'avance

Configuration: Windows 7 / Chrome 23.0.1271.97

heyquem · Accepted Answer

En Python, ça se fait comme ça:      


with open(filename,'r') as f:      
    f.readline() # on lit la première ligne      
    content = f.read() # on lit l'ensemble du fichier qui suit    
                       #  la première ligne      

with open(filename,'w') as f:      
    f.write() 

Et hop.      

Mais les gens préfèrent apparemment les joies de la complication.

Heliotte · Answer

Bonsoir nick_2428,

Vous utilisez Visual Basic Script ?

A la fin de la lecture du fichier, la variable strContents contient l'ensemble des données de celui-ci.
Quand au remplacement, je ne comprends pas le remplacement de tous les "chr(10)", c'est comme si vous mettiez bout à bout toutes les phrases d'un texte, illisible pour l'être humain ou tout du moins trop fatiguant pour moi !

Ne serait-il pas plus judicieux d'ouvrir le fichier en lecture seule, de lire ligne par ligne, pour de réécrire le fichier également ligne par ligne en omettant la première ?

Heliotte · Answer

Bonjour nick_2428,

Je suis désolé de ne pouvoir mieux t'aider en VBScript .. Si tu travaillait en VB6.0 ou VB.Net, j'aurais pu mieux t'aider.

Je sait qu'il existe des langages, comme dit Sara426, qui facile la vie en "omettant la première ligne du fichier et donc, en ne recopiant que le reste.
Mais c'est très facile en VB (6.0 ou /Net).

Malheureusement, dans l'immédiat je n'ai pas assez de temps libre pour me permettre d'en apprendre plus sur VBScript.

A toi de voir.
@+
Heliotte

Effacer la 1ere ligne d'un fichier

3 réponses

Discussions similaires