Besoin d'un script pour supprimer des lignes

Question

Bonjour,

Je cherche un petit script en DOS ou alors en vbs, qui me supprimerais les lignes que je ne veux pas garder dans le fichier.

Y aurait-il une solution pour ce problème??

Silvestre2323 · Answer

J'ai oublier de préciser que c'est dans un fichier texte que je veux supprimer des lignes

dream666 · Answer

bonjour,
moi j'ai créer un code en purebasic qui modifie mes valeurs dans mon .txt
en cas ou sa pourrai t'intéresser

Silvestre2323 · Answer

Ué vas y stp

Pck j'ai trouver comment faire mais c es un peu compliker, pt etre que comme tu fais c es + simple

marc · Answer

Et Google, ça sert à quoi ?
Tu crois que tu es le premier au monde à faire un truc aussi simple depuis 40 ans ?!!!
Il y a des milliers de réponses :
Il faut faire un minimum d'efforts pour chercher quand même !!
Et écrire en français...

dream666 · Answer

je rappel que c'est du purebasic donc plus simple mais comme je l'ais utiliser pour faire plus compliquer il parait plus compliquer.
je les modifier vite fait pour toi
il vas rechercher le mot pour ensuite supprimer ce qu'il y a sur la ligne du mot désirer





     Macro Write_texte( variable,valeur, chemin ) 


     
     a=0
     compteur=0
     Position=0
     trouver=0
     
     
      OpenFile(0, chemin) 
      While trouver=0
      
      FileSeek(0, compteur)
      texte$=ReadString(0)
      Position = FindString(texte$, "endofline", 0)
      Position = FindString(texte$, variable, 0)
      
      If position>0
      trouver=1
      Else
      a = Len(texte$)
      compteur=compteur+(a+2) 
      EndIf 

      Wend  
       

       
       FileSeek(0, compteur-1)
       texte$=ReadString(0)
       Position=FindString(texte$, texte$, 1)
       FileSeek(0, compteur+Position)
       texte$=ReadString(0)
      
       
       
       
       FileSeek(0, compteur+Position)
         WriteStringN(0, "          " ) 

       FileSeek(0, compteur+Position)
       WriteString(0, valeur )
       FileSeek(0, compteur+Position)
       texte$=ReadString(0)
        RTrim(texte$)
       FileSeek(0, compteur+Position)
       texte$=ReadString(0)
       
    CloseFile(0) 
     EndMacro 
     
     
     
     
     
     Write_texte( "mot","", "texte.txt" )

Silvestre2323 · Answer

Merci dream666!

Et pour Monsieur Marc j'écriiiis comme bon me semble si t'es pas content tu px aller te plaindre au bureau des boulets ;)

Et pas tout le monde est trop "intelligent" comme toi en prog.

Besoin d'un script pour supprimer des lignes

6 réponses

Discussions similaires

Newsletters