Se connecter avec
S'enregistrer | Connectez-vous

Remplacer plusieurs lignes dans fichier txt

Dernière réponse : dans Programmation

Bonjour,

Voilà, je travail sur un petit projet pour mon boulot, et celà fait quelque jours que je cherche déséspérément à remplacer quelques lignes d'un fichier .txt par des lignes d'une textbox mais sans succès.

Pour situer exactement ou est mon problème, voici la forme du contenu du fichier text :

"
001-Code :
code du système

Désignation :
Désignation du système

002-Variante :
Variante du système

Désignation :
Désignation de la variante
"

Mon objectif et de remplecer par exemple ceci :
001-Code :
code du système

Désignation :
Désignation du système

Par celà,

001-Code :
code du système

Désignation :
Désignation du système

Non selectionnable pour tous :
Permet de rendre le système entièrement non sélectionnable

Merci d'avance pour votre aide !!
Lassé par la pub ? Créez un compte

Merci pour ta réponse the_down, j'ai déjà fait le tour de tous les forum concernant le remplacement de lignes dans un fichiers text mais je n'arrive pas à faire ce que je voudrai avec.
Ce que je n'arrive pas à faire c'est cherche ma variable (001-....) dans le fichier texte, la supprimer et écrire le nouveau texte de ma textbox à l'endroit ou l'ancien texte était) Voici le code que j'ai :

Private Sub Label2_Click()
Dim i As Integer
Dim TextLine As String
Dim stDeb As String
Dim stFin As String
Dim bTrouve As Boolean 'Flag Début département trouvé
Dim f As Integer
Dim chaine As String

Textbox1.Text = "" 'Vide text box...
Pattern = "001"
Pattern1 = "002"
stDeb = Format(i, Pattern & "-") ' Formate numero appart 01-
stFin = Format(i, Pattern1 & "-")
f = FreeFile
If pos > 0 Then
End If
Open "c:\test.txt" For Input As #f ' Ouvre le fichier.
Do While Not EOF(f) ' Effectue la boucle jusqu'à la fin du fichier.
Input #f, TextLine ' Lit la ligne dans la variable.
If Not bTrouve Then
If Left(TextLine, 4) = stDeb Then
Textbox1.Text = Mid(TextLine, 5)
bTrouve = True
End If
Else
If Left(TextLine, 4) <> stFin Then
Textbox1.Text = Textbox1.Text & vbCrLf & TextLine 'Rajoute ligne
Else
Close #f
Exit Do 'Sort de la boucle while
End If
End If
Loop
chaine = Label1.Tag & "-" & Textbox1.Text
MsgBox (chaine)

Close #f ' Ferme le fichier.
End Sub

Le texte qui apparait dans la msgbox est la variable que je dois rechercher et supprimer dans le fichier texte pour que je puisse mettre le nouveau texte inscrit dans la textbox.

Par avance merci !!
Lassé par la pub ? Créez un compte
Tom's guide dans le monde