Discussion :

[enzo68290]

Bonjour,

Je bosse avec un logiciel d'encaissement de caisse.

J'essaye de développer un truc en parallèle. J'ai une imprimante à ticket de caisse physique et j'en est créer une autre virtuelle utilisant " printer++ " pour ceux qui connaissent.

Pour ceux qui ne connaissent pas, c'est un soft qui génère un fichier postscript, et une fois généré peut lancer mon soft que je veux développer en donnant pour paramètre le fichier postscript.

ça c'est ok, ça ne coince pas.

En revanche, quand je traite ligne par ligne le fichier, je coince à la seconde ligne. Grosso-modo je veux récupéré un string contenant mon fichier ps, mais au bout de la seconde ligne il sort du try sans erreur et sans toutes les lignes.

mon code :

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
17
18
19
20
21
22
23
24
25
 
 
        Try
            ' Création d'une instance de StreamReader pour permettre la lecture de notre fichier
            Dim monStreamReader As StreamReader = New StreamReader(Server.MapPath("test.ps"))
            Dim ligne As String
            Dim str as string
            'Lecture de toutes les lignes et affichage de chacune sur la page
            Do
                ligne = monStreamReader.ReadLine()
                str = str & ligne & vbcrlf
            Loop Until ligne Is Nothing
 
            'Fermeture du StreamReader (attention très important)
            monStreamReader.Close()
 
        Catch ex As Exception
 
            'Code exécuté en cas d'exception
            msgbox(ex.message)
 
        End Try
 
        'j'affiche mon str
        msgbox(str)

Vous pourrez retrouvez en pièce jointe une copie du fichier postcript généré par printer++.

Si jamais le but de mon soft, c'est de récupéré les montants, les encaissements, les TVA, et derrière ça génère un excel, cette partie de mon soft est déjà développé et fonctionne, il suffit que je le lance en mode simulation plein de fois en envoyant manuellement les valeurs qu'il doit traiter.

Tant que je ne peux pas récupérer les valeurs directement dans les tickets de caisse, ça ne fonctionnera pas dans le global.

En remerciant d'avance tout ceux qui participerons à la résolution de mon problème,

Je vous souhaite une bonne journée,

Cordialement

[Pol63]

en plus court :
System.IO.File.ReadAllText(path) ou System.IO.File.ReadAllLines(path) (qui retourne une tableau de string)

et pour info mettre un .close c'est bien, mais en cas d'erreur tu ne passes pas dessus donc ça laisse le fichier ouvert ...
voir using { } ou try finally pour éviter ça

[enzo68290]

Merci pour l'info l'ami, je vais tester.

Pour le try, s'était plus en mode test qu'autre chose, j'ai essayé pas mal de truc, le tout à l'arrache n'arrivant à rien

[enzo68290]

Bon, ça fonctionne pas exactement.

readalllines fonctionne, mais ça me donne un tableau de string, j'ai besoin d'un seul string contenant des retour à la ligne.

J'ai essayé du coup avec une boucle for de constituer mon string, arrivé à la seconde ligne ça continue de tourner niveau boucle, mais mon str ne concatène pas la suite, ma seconde ligne est même incomplète.

En essayant readalltext ça ne fonctionne pas non plus, j'ai le même résultat qu'avec ma boucle FOR, mes deux premières lignes incomplètes.

Rapport à mon fichier postscript, ça bloque après le B majuscule de la seconde ligne.

Dans l'idée c'est assez cool déjà le readalllines, il faudrait que je puisse réussir à concaténer la suite ...

[enzo68290]

Si ça peut aider, j'ai bien l'impression que c'est le B majuscule de la deuxième ligne qui fou le bordel ...

[ebastien]

Bonjour,

Pour info, ce n'est pas le B de la deuxième ligne qui pose problème mais plutôt le "caractère" qui se trouve juste après : c'est un byte nul (zéro).
Tu peux les supprimer en faisant ça :

Code :

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

String s = File.ReadAllText(FileName).Replace("\0", "");

[Miska59]

Bonjour,

Pouvez-vous faire ceci aussi çà fonctionne très bien ligne par ligne comme votre fichier test.PS

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Imports System.IO
Imports System.Text
 
Public Class Form1
    Dim filepath As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\test\test.ps"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim reader As New StreamReader(filepath, Encoding.Default)
        Do While reader.Peek > -1
            RichTextBox1.AppendText(reader.ReadLine & Environment.NewLine)
        Loop
        reader.Close()
    End Sub
End Class

[enzo68290]

Je vais tester ça :

Code :

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

String s = File.ReadAllText(FileName).Replace("\0", "");

Bon c'est du VB.net, mais j'ai compris le truc lol.

ça peut être ça tout à fait, je capte juste pas pourquoi il déraille sur ce caractère en fait.

[Pol63]

c'est peut etre du à l'encodage, par défaut readalltext utilise celui par défaut dans windows, mais si c'est de l'utf8 ou autre il faut le préciser
ce sont des octets qui sont lu dans le fichier, et ils sont ensuite transformés en string via un encodage

[enzo68290]

Bon, j'ai tester le bout de code que tu m'as filer, sans meilleur résultat, ça s'arrête au B majuscule ...

Ton idée me semblait bonne pourtant de partir sur ce bout de code :

Code :

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

String s = File.ReadAllText(FileName).Replace("\0", "");

En ce qui concerne ce code la :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Imports System.IO
Imports System.Text
 
Public Class Form1
    Dim filepath As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\test\test.ps"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim reader As New StreamReader(filepath, Encoding.Default)
        Do While reader.Peek > -1
            RichTextBox1.AppendText(reader.ReadLine & Environment.NewLine)
        Loop
        reader.Close()
    End Sub
End Class

ça nécessite que je créer un objet physique (richtextbox1), ça me soule alors qu'une variable string est largement mieux.

j'ai tester en vite fait, j'ai déclarer mon richtextbox avec un dim richtexbox1 as richtextbox = nothing, ça n'a bien fonctionné de toute façon.

ça ne me semble pas être la fonction la plus adéquate.

[enzo68290]

Merci ebastien ! j'ai résolu mon soucis grâce à toi :

Code :

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

dim ticket as string = File.ReadAllText(FileName).Replace(chr(0), "")

en effet, \0 c'est plutôt utiliser dans d'autres langages, j'avais déjà vu cette syntaxe quelque part.

Du coup pour lui indiquer qu'en ascii c'est le caractère 0 (null), j'ai remplacer ton "\0" par "chr(0)" et ça roule,

Encore merci !

[ebastien]

Ah oui désolé pour le temps perdu, je t'ai envoyé le bout de code en C#. Je n'avais pas vu qu'on était sur le forum vb.net.
Il faudra que je fasse attention à ça à l'avenir ;-)