Discussion :

[sniper59]

bonjour à tous,

je rencontre un étrange bug dans l'écriture dans un fichier text
le petit bout de code d'écriture dans ce fichier m'écrit des caractères que je n'ai pas programmé...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Private Function ecriture_log() As Boolean
        fichier_log = exedir & "\log\" & "test.txt"

        Try
            numerofile = FreeFile()
            FileOpen(numerofile, fichier_log, OpenMode.Append)

            Print(numerofile, date_save.ToString("ddd" & vbTab & "dd/MMMM/yyyy" & vbTab & "debut = HH:mm:ss   ****   ", New CultureInfo("fr-FR")) & Date.Now.ToString("ddd" & vbTab & "dd/MMMM/yyyy" & vbTab & "fin = HH:mm:ss", New CultureInfo("fr-FR")) & vbNewLine)

            FileClose(numerofile)
         Catch ex As Exception

        End Try

        Return True
    End Function

ce petit code m'écrit la séquence suivante dans le fichier

dim. 01/février/2015 1ebu = 20:39:29 **** dim. 01/février/2015 1in = 20:39:38

j'ai aussi tenté la méthode avec stramwriter et write , ça me fait les mêmes bizarreries ...

quelqu'un en connait-il la cause?

meci

[rv26t]

Bonjour,

d, f, et t sont des spécificateurs de format de date et d'heure personnalisés (mise en forme de date).
\debu\t ; \fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Print(numerofile, date_save.ToString("ddd" & vbTab & "dd/MMMM/yyyy" & vbTab & "\debu\t = HH:mm:ss   ****   ", New CultureInfo("fr-FR")) & Date.Now.ToString("ddd" & vbTab & "dd/MMMM/yyyy" & vbTab & "\fin = HH:mm:ss", New CultureInfo("fr-FR")) & vbNewLine)

[sniper59]

pffff... suis trop nul
pourquoi je n'y ai pas pensé avant ... en tout cas, ça marche

merci rv26t pour ton aide