3/5 (11 avis)
Snippet vu 8 311 fois - Téléchargée 31 fois
'--------------------------------------------------------------------------- 'Fonction Inserer une ligne de texte dans un fichier a la ligne de son choix '--------------------------------------------------------------------------- Public Function Insere_FicTxt(Texte As String, Fichier As String, Optional Ligne As Integer = 1) Dim VarFichier As String Open Fichier For Input As #1 VarFichier = input(LOF(1), 1) Close #1 'Si 1er ligne If Ligne = 1 Then VarFichier = Texte & vbCrLf & VarFichier: GoTo Ecrit 'Si Dans le fichier Dim VarNr As Integer For i = 1 To Len(VarFichier) If Mid(VarFichier, i, 1) = Chr(13) And Mid(VarFichier, i + 1, 1) = Chr(10) Then VarNr = VarNr + 1 If VarNr = Ligne - 1 Then VarFichier = Mid(VarFichier, 1, i + 1) & Texte & CrLf & Mid(VarFichier, i, Len(VarFichier)): Exit For: GoTo Ecrit Next i 'Si derniere ligne ou + If VarNr < Ligne - 1 Then VarFichier = VarFichier & vbCrLf & Texte: MsgBox "ajout der" Ecrit: Open Fichier For Output As #1 Print #1, VarFichier Close #1 End Function '-------------------------------------------------------------- 'Fonction Supprimer la ligne de son choix dans un fichier texte '-------------------------------------------------------------- Public Function SupprLigne(NrLigne As Integer, Fichier As String) Dim VarFichier As String Dim VarNr As Integer Dim Ligne As String Open Fichier For Input As #1 Do While Not EOF(1) Line Input #1, Ligne VarNr = VarNr + 1 If VarNr <> NrLigne Then VarFichier = VarFichier & Ligne & vbCrLf Loop Close #1 'ecriture du fichier Open Fichier For Output As #1 Print #1, VarFichier Close #1 End Function '-------------------------------------------------------------- 'Fonction Recherche et remplace le texte dans un fichier '-------------------------------------------------------------- Public Function RemplaceTxt(Fichier As String, TxtSource As String, TxtDestination As String) Dim Ligne As String Dim Varfichier As String Open Fichier For Input As #1 Do While Not EOF(1) Line Input #1, Ligne Ligne = Replace(Ligne, TxtSource, TxtDestination) varfic = varfic & Ligne & vbCrLf Loop Close #1 'ecriture du fichier Open Fichier For Output As #1 Print #1, Varfichier Close #1 End Function
22 nov. 2007 à 13:28
j'ai une erreur ?
Erreur d 'exécution '62 :
Lentrée dépasse la fin de fichier
Merci
4 sept. 2007 à 10:34
Ca fonctionne parfaitement bien.
6 juil. 2006 à 11:59
Néanmoins, cela me fait une ligne vierge en dernière ligne, et lorsque je rajoute un élément à mon fichier, il est rajouté après cette ligne vierge (donc j'ai un trou dans ma liste).
Quelqu'un pourrai m'éclairer?
Merci d'avance...
1 juin 2006 à 13:34
Private Sub Form_Load()
Open "C:\TRAIN.txt" For Input As 1 'on ouvre le fichier à analyser
Text_numtrain.Text = Text_numtrain
'Text_code_miss.Text = Text_code_miss
'Text_heure_de.Text = Text_heure_de
'Text_heure_ar.Text = Text_heure_ar
'Text_num_quai.Text = Text_num_quai
'Text_depart.Text = Text_depart
'Text_dest.Text = Text_dest
'Text_dat.Text = Text_dat
Do Until EOF(1)
Line Input #1, tmp Text_numtrain.Text = tmp
Loop
Close #1
End Sub
Si quelqu'un peut bien m'aider,Merci.
26 oct. 2005 à 22:51
j'ai utiliser les deux la tienne est plus simple.
Et plus sure a mon avis
merci car ta source ma sorti une epine du pied.
ceci dis pense un peu a newbi comme moi
car quand tu met varfic je me demande d'ou sa sort au faite c'est varfichier et ça marche tres bien !!!!
merci by by !!!!!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.