Discussion :

[YLKweb]

Bonjour à toutes et à tous,

Désolé de déterrer ce topic vieux d'il y a 6 ans maintenant mais il s'avère qu'il m'a été bien utile pour résoudre un problème actuel (en partie en tous cas...).

Je me permet cependant de faire appel aux grands développeurs VBS qui rodent par ici car je me suis laissé dire qu'on en trouvait de fort compétents.

Voilà mon soucis :

Je désire créer un script VBS permettant de supprimer les 8 premières lignes d'un fichier (c'est pour cette partie que les solutions données sur le topic m'ont bien aidées) mais aussi les 4 dernières lignes et enfin il me serait utile de supprimer les trois premiers caractères sur chacune des lignes restantes.

Je ne sais pas vraiment comment m'y prendre pour la suppression des 4 dernières lignes du fichier dont le nombre total de lignes est variable...
Et j’avoue être un peu perdu aussi pour la suppression des 3 premiers caractères de chaque ligne restante...
Etant un illustre inculte en VB, j'aurais aimé avoir recours à votre expertise en la matière.

Je remercies par avance tout développeur ayant la bonté d'âme et la générosité de me fournir un avis éclairé sur la question !


Cordialement,

YLK.

[ProgElecT]

Salut

A vérifier, mais dans l'esprit

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
21
22
23
24
25
26
27
28
Const ForReading = 1
Const ForWriting = 2
Dim oFso , objFile, strContents, arrLines
Dim I
Dim NbrLgnTot, NbrLgnDeb, NbrLgnFin, NbrCaractere
 
Set oFso = CreateObject("Scripting.FileSystemObject")
 
Set oFso = wscript.CreateObject("Scripting.FileSystemObject")
Set objFile = oFso.OpenTextFile("C:\temp\fichier_source.txt", ForReading)
strContents = objFile.ReadAll
objFile.Close
 
arrLines = Split(strContents, vbCrLf)
NbrLgnTot = UBound(arrLines)
NbrLgnDeb = 8
NbrLgnFin = 4
NbrCaractere = 3
NbrLgnTot = NbrLgnTot - NbrLgnFin
Set objFile = oFso.CreateTextFile("C:\temp\fichier_destination.txt", ForWriting)
For I = NbrLgnDeb - 1 To NbrLgnTot - 1
  arrLines(I) = Right(arrLines(I), Len(arrLines) - NbrCaractere)
  objFile.WriteLine arrLines(I)
Next
objFile.Close
 
Set objFile = Nothing
Set oFso = Nothing

[l_autodidacte]

Cela marche très bien en remplaçant la ligne 22 par :

arrLines(I) = Right(arrLines(I), Len(arrLines(I)) - NbrCaractere)

[YLKweb]

Merci de vos réponses rapides !

Je confirme que ça marche nickel.
J'ai juste modifié ça :

NbrLgnDeb = 9
NbrLgnFin = 3

Car du coup il commençait à la ligne 8 alors qu'elle devait être supprimée et même chose pour la fin.
Bon j'ai un mystérieux retour chariot sur la fin du fichier mais je pense pouvoir m'en contenter.

Encore merci de vos compétences amis développeurs !

[l_autodidacte]

Bon j'ai un mystérieux retour chariot sur la fin du fichier

Il suffit de faire :

Code :

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

1
2
3
4
5
6
7
For I = NbrLgnDeb - 1 To NbrLgnTot - 1
  If arrLines(I) <> "" Then
     arrLines(I) = Right(arrLines(I), Len(arrLines(I)) - NbrCaractere)
     objFile.WriteLine arrLines(I)
  End If 
Next

[YLKweb]

Merci de ce complément l_autodidacte, mais cela ne change rien...
J'ai toujours une ligne vide en bas du fichier (que je n'ai d'ailleurs pas dans le fichier de départ).
Si vraiment tu trouves d'où ça vient, je suis preneur mais sinon ne perds pas ton temps la-dessus, c'est un détail.

Encore un grand merci de votre efficacité en tous les cas.

Vous êtes des chefs !

[pitchalov]

Bonjour,
La méthode WriteLine ajoute un saut le ligne (vbCrLf) à la fin de la ligne que tu écris.
Si la ligne vide à la fin de ton fichier te gêne, tu peux utiliser la méthode Write qui fait la même chose sans rajouter de saut de ligne, et gérer toi même tes sauts de ligne.
Exemple (non testé) :

Code :

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

1
2
3
4
5
6
7
For I = NbrLgnDeb - 1 To NbrLgnTot - 1
  If arrLines(I) <> "" Then
     arrLines(I) = Right(arrLines(I), Len(arrLines(I)) - NbrCaractere)
     If I < NbrLgnTot - 1 Then arrLines(I) = arrLines(I) & vbCrLf
     objFile.Write arrLines(I)
  End If 
Next

Bonne continuation.