[VB.Net] Perl string conversie

[k0ewl]

Hoi mede-GoT-ers,

morgen is het dan 1 april. Natuurlijk de dag om je collega's mee in de zeik te zetten. Ik had via een ander topic het idee gekregen om de HP printers over de gehele plant te voorzien van een ander berichtje. Nu zijn daar al tooltjes voor, maar op de een of andere manier werkt dat niet bij mij, dus ben ik zelf aan de gang gegaan en nu loopt het dan toch vast...

Het bericht wat verstuurd moet worden naar de printer ziet er in Perl als volgt uit:

code:

my $data2 = <<EOJ
\e%-12345X\@PJL JOB
\@PJL RDYMSG DISPLAY=""
\@PJL EOJ
\e%-12345X
EOJ
;

Dit werkt in Perl dus.

Ik maak het programma in VB.NET zodat er een mooie executable uitkomt en omdat ik nog wat meer functionaliteit aan het inbouwen ben. In verscheidene script op internet staat als bericht het volgende:

code:

sendString = String.Format(
                "\x1B%-12345X@PJL RDYMSG DISPLAY = \"\"\r\n\x1B%-12345X\r\n", 
                message
           );

dit is C#, maar dat als ik dit in VB.NET doe, dan zegt de printer dat het fout is, en hangt ie

Wat is dus het correcte bericht om te sturen?

[RobIII]

Dit >> voila

Even verder kijken dan je neus lang is dus

Overigens snap ik de topictitle "[Perl] Inline Java" niet; ik maak er "[VB.Net] Perl string conversie" van.

[ Voor 56% gewijzigd door RobIII op 31-03-2008 14:55 ]

[Verwijderd]

Ik heb het toen op deze manier gedaan:

code:

string Send = string.Format("\x1B%-12345X@PJL RDYMSG DISPLAY = \"{0}\"\r\n\x1B%-12345X\r\n", Message);

maw, volgens mij klopt je string.format niet (DISPLAY = \"{0}\")

[ Voor 4% gewijzigd door Verwijderd op 31-03-2008 14:52 ]

[k0ewl]

Verwijderd schreef op maandag 31 maart 2008 @ 14:51:
Ik heb het toen op deze manier gedaan:

code:

string Send = string.Format("\x1B%-12345X@PJL RDYMSG DISPLAY = \"{0}\"\r\n\x1B%-12345X\r\n", Message);

maw, volgens mij klopt je string.format niet (DISPLAY = \"{0}\")

Ik krijg het niet voor elkaar om die quotes te escapen.. blijf daar maar errors op krijgen:

code:

sendString = String.Format("\x1B%-12345X@PJL RDYMSG DISPLAY = \"{0}\"\r\n\x1B%-12345X\r\n", message);

Behalve door de quotes als dubbele quotes uit te voeren:

code:

""""

Dat is dus een quote met 2 quotes eromheen...

[ Voor 10% gewijzigd door k0ewl op 31-03-2008 15:14 ]

[RobIII]

Een quote escapen in VB(.Net) = ""

[k0ewl]

RobIII schreef op maandag 31 maart 2008 @ 15:52:
Een quote escapen in VB(.Net) = ""

Ik had hem al

totale code:

Visual Basic:

Imports System
Imports System.Text
Imports System.Net
Imports System.Net.Sockets
Imports System.Xml
Imports System.Math

Module PrinterHack

    Dim socket As Socket
    Dim printer_port As Integer = 9100

    Dim Messages() As String = { _
    "IK VERVEEL ME", _
    "LETTERS BIJNA OP", _
    "POMPIDOM", _
    "INSERT COIN", _
    "CALL SERVICE", _
    "OM NOM NOM NOM", _
    "RADIATION LEAK", _
    "PRESS ANY BUTTON", _
    "UW RECLAME HIER?" _
    }

    Sub Main(ByVal args() As String)
        Console.WriteLine("HP Display Hack")

        While (True)
            Call Connect(args(0))

            If args(1) = "Weather" Then
                Call DisplayWeather()
            ElseIf args(1) = "Messages" Then
                Call DisplayMessages()
            End If

            Call Disconnect()

            System.Threading.Thread.Sleep(60000)

        End While

    End Sub

    Sub Connect(ByVal IpAddress As String)
        Dim ipEndPoint As IPEndPoint

        ipEndPoint = New IPEndPoint(Dns.GetHostEntry(IpAddress).AddressList(0), printer_port)

        socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        socket.Connect(ipEndPoint)
    End Sub

    Sub Disconnect()
        If socket.Connected Then
            socket.Disconnect(True)
        End If
    End Sub

    Sub DisplayMessages()
        Dim sendData() As Byte
        Dim sendString As String
        Dim Iterator As Random

        Dim result
        Dim message

        Iterator = New Random
        message = Messages(Iterator.Next(UBound(Messages)))

        sendString = String.Format("\x1B%-12345X@PJL RDYMSG DISPLAY = ""{0}""\r\n\x1B%-12345X\r\n", message)
        sendData = Encoding.ASCII.GetBytes(sendString)

        result = socket.Send(sendData, sendData.Length, 0)

        If result = 0 Then
            Console.WriteLine("Couldn't send: " & sendString)
        End If

    End Sub

    Sub DisplayWeather()
        Dim URL = "http://www.google.com/ig/api?weather=eindhoven,nederland"
        Dim XMLParser As XmlDocument = New XmlDocument()

        Dim XMLNode As XmlNodeList

        Dim message
        Dim sendString
        Dim sendData
        Dim result As Integer

        XMLParser.Load(URL)

        XMLNode = XMLParser.GetElementsByTagName("condition")
        message = XMLNode.Item(0).Attributes(0).Value

        sendString = String.Format("\x1B%-12345X@PJL RDYMSG DISPLAY = ""{0}""\r\n\x1B%-12345X\r\n", message)
        sendData = Encoding.ASCII.GetBytes(sendString)

        result = socket.Send(sendData, sendData.Length, 0)

        If result = 0 Then
            Console.WriteLine("Couldn't send: " & message)
        End If
    End Sub

End Module

[LuCarD]

Ik krijg gewoon de text op papier en niet op het display

Zou het aan de type printer liggen? HP LaserJet 4100

[edit]
Ik heb hem inmiddels aan de praat....

Ik heb de volgende regel aangepast.

Visual Basic:

        sendString = String.Format(ChrW(27) + "%-12345X@PJL RDYMSG DISPLAY = " + ChrW(34) + "{0}" + ChrW(34) + ControlChars.Cr + ControlChars.Lf + ChrW(27) + "%-12345X" + ControlChars.Cr + ControlChars.Lf, message)

[ Voor 58% gewijzigd door LuCarD op 01-04-2008 15:26 ]

[To_Tall]

Dit is ook leuk buiten 1 April om