cs_Kyza
Messages postés4Date d'inscriptionjeudi 13 septembre 2007StatutMembreDernière intervention25 octobre 2007
-
25 oct. 2007 à 00:35
cs_Kyza
Messages postés4Date d'inscriptionjeudi 13 septembre 2007StatutMembreDernière intervention25 octobre 2007
-
25 oct. 2007 à 10:52
Bonjour,
Je souhaite écrire dans un fichier texte mais je ne souhaite pas sauter de ligne et la fonction print que je vois partout saute une ligne automatiquement. Connaissez vous une fonction similaire qui ne saute pas de ligne ?
Je vous met l'exemple de mon code
'Fonction permettant la suppression d'un paramètre
Sub supprimerValeur(ByVal valeur As String, valeurActuelle As String, nombre As Integer)
Open (App.Path & "\data\param.txt") For Output As #1
For i = LBound(tableau) To UBound(tableau) - 1
If i = (nombre - 1) Then
tableau2 = Split(tableau(i), ";")
For j = LBound(tableau2) To UBound(tableau2) - 1
MsgBox tableau2(j)
If tableau2(j) <> valeurActuelle Then
Print #1, tableau2(j) & ";"
End If
Next j
Else
Print #1, tableau(i)
End If
Next i
Close #1
End Sub
En faite j'enregistre plusieurs paramètres dans un fichier texte de différents type. Chaque ligne correspond à un type, il reconnait bien le paramètre a supprimer mais au moment d'écrire le reste de la ligne, il saute une ligne à chaque fois que j'ecrit un mot.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 25 oct. 2007 à 04:51
Print #1, "Ce texte est sur une "; Print #1, "seule ligne grace "; Print #1, "aux ';' placés en fin de la chaine..."
Print #1, "Nouvelle ligne (pas de ';')"
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 25 oct. 2007 à 08:45
Comme le dit Renfield, il faut mettre un ; à la fin.
Mais attention il s'agit de la fin de l'instruction Print et non pas à la fin de la chaine à écrire comme on pourrait le croire si on ne fait pas attention à l'exemple qu'il donne.