UnMage
Messages postés32Date d'inscriptionsamedi 26 juin 2004StatutMembreDernière intervention15 novembre 2004
-
30 juin 2004 à 00:12
UnMage
Messages postés32Date d'inscriptionsamedi 26 juin 2004StatutMembreDernière intervention15 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.
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 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