Retour à ligne Textbox

UnMage Messages postés 32 Date d'inscription samedi 26 juin 2004 Statut Membre Dernière intervention 15 novembre 2004 - 30 juin 2004 à 00:12
UnMage Messages postés 32 Date d'inscription samedi 26 juin 2004 Statut Membre Dernière intervention 15 novembre 2004 - 30 juin 2004 à 13:21
Bonjour,
Bon voilà j'ai utilisé ce code :

Private Sub LoadShouts()
Dim a As String

Open "C:\T4C Server\Logs\Shouts.log" For Input As #1
While Not EOF(1)
Input #1, a$
shoutlogs.Text = shoutlogs.Text + vbCrLf + a$
Wend
Close #1

End Sub

Pour récuperer le texte de shouts.log (formatage pareil que .txt), seulement à chaque "," virgule dans une ligne il fait un retour à la ligne. Si vous avez une idée...
J'avais pensé à changer les , par des espaces mais je ne connais pas la syntaxe.

3 réponses

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
30 juin 2004 à 09:02
Bonjour
Remplace
Input #1, a$
par
Line Input #1, a$
----------------
Pour Input#, la virgule est un séparateur
Pour Line Input# le séparateur est vbCrLf
0
UnMage Messages postés 32 Date d'inscription samedi 26 juin 2004 Statut Membre Dernière intervention 15 novembre 2004
30 juin 2004 à 12:55
Merci beaucoup, je vais essayer ça tout de suite.
0
UnMage Messages postés 32 Date d'inscription samedi 26 juin 2004 Statut Membre Dernière intervention 15 novembre 2004
30 juin 2004 à 13:21
Parfait, ça marche très bien, merci encore.
0
Rejoignez-nous