Hugge i en værdi!

Jeg har lidt svært ved at forstå hvad du mener, men tror godt jeg forstår hvor du vil hen når du nævner det med winsock'en.

Det du vil er at din winsock modtager en værdi og noget data i samme string, hvoraf værdien bestemmer hvorledes data'en skal tolkes af programmet??

Hvis det er dette du vil opnå kan du starte med at sætte nogle betydninger af værdien. Dette kan fx være at du bestemmer dig for at hvis winsocken modtager et A som værdi skal den sende brugeren en msgbox hvori data'en står...

Dette kan gøres på følgende måde:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
    Winsock1.GetData Data
    DoEvents
    Call Execute(Left$(Data), Right$(Len(Data) - 1))
End Sub

Public Sub Execute(Command As String, Data As String)
    Select Case Command
        Case "A" 'Show Data
            MsgBox Data
    End Select
End Sub

Så skal du bare sørge for at den omtalte værdi (som jeg i koden har kaldt 'command'), kun er på et tegn. For at det ikke bliver forvirrende at det kun er på et tegn sætter man kommentare ud for case således at man ved hvad der er hvad. Man kan evt skrive den ned på et stykke papir så man hurtigere kan finde det.

// Great programs often follow great brains!

Hej
Måske kan du gemme dit input som et array af string (Text). Herefter bytte om på de to string og tilsidst omsætte det til en værdi.

Ved ikke om det hjælp med det er mit forslag.

Mvh
Janus S. Andersen

* Life is a dream in a programmers heaven *

Hej
Måske kan du gemme dit input som et array af string (Text). Herefter bytte om på de to string og tilsidst omsætte det til en værdi.

Ved ikke om det hjælp med det er mit forslag.

Mvh
Janus S. Andersen

* Life is a dream in a programmers heaven *

ehhmm, og hvordan gør jeg så det?