[VB6] String omzetten naar meerdere strings

[Luppie]

Ik ben bezig met een tool voor RavenShield (Game), het is me nu wel al gelukt om via winsock informatie te krijgen van de game server, alleen wordt deze informatie in 1 regel gegeven met ¶ als scheidingsteken.

De code die ik gebruik leest deze informatie in 1 string alleen ik moet de afzonderlijke info in afzonderlijke strings hebben.

(Ik wou dat VB gewone mensentaal begreep, want wat ik wil is : Lees server-output in String A tot ¶ lees verdere output in string B tot ¶ , etc, etc)

Dit is de output die ik van de server krijg :

rvnshld 7777 KEYWORD ¶P1 7777 ¶E1 Island_Dawn ¶I1 [DeD]icated #3 100Mbit ¶F1 RGM_TeamDeathmatchMode ¶A1 16 ¶G1 0 ¶H1 1 ¶K1 /Airport/Alpines/Penthouse/mountain_high/Garage/Import_Export/Island/Streets/Peaks/Parade/Airport_Night/Presidio/Prison/Shipyard/Island_Dawn/Training/Warehouse/Bank ¶J1 /RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode/RGM_TeamDeathmatchMode////////////// ¶L1 /|eu|scarface/DeD|PuN|/CK!|howardMarks/Razor-TfT/ley/[DWS]D-Ranger/CK!|Gizmo/Nuke/CK!|MellowGlad/CK!|4Q/Coupe_Ravage/[Special-T]/Pirez ¶M1 /0:00/1:04/1:32/1:36/2:20/2:22/5:12/4:20/4:38/5:26/7:30/9:16/23:50 ¶N1 /0/47/47/46/32/47/47/78/93/60/50/31/63 ¶O1 /0/0/3/0/1/1/1/0/2/4/2/6/4 ¶B1 13 ¶Q1 10 ¶R1

Visual Basic:

Private Sub Command1_Click()
On Error GoTo error
Winsock1.Close

Winsock1.Protocol = sckUDPProtocol

Winsock1.RemoteHost = Text4.Text

Winsock1.RemotePort = Text5.Text

Winsock1.SendData Text3.Text

Label3.Caption = Text3.Text
GoTo einde

error:
MsgBox "Server not Online or Wrong IP/Port", vbInformation, "Error"

einde:
End Sub



Private Sub mnuExit_Click()
Unload Me
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim strData
Winsock1.GetData strData, vbString, bytesTotal

Text1.Text = strData

End Sub

Weet iemand hoe ik dit voor elkaar kan krijgen ?
(Als ik maar weet wel functie ik hiervoor moet gebruiken dan kan ik er wel bijzoeken hoe ik het werkend moet krijgen, ik weet alleen niet waarnaar ik op zoek ben )

[gorgi_19]

Wil je nu gewoon Split() gebruiken, met als splitsingsteken dat gekke ding?
Vervolgens lees je de resultarray uit?

[ Voor 22% gewijzigd door gorgi_19 op 18-01-2004 21:21 ]

[Demo]

MSDN

[Luppie]

Cool, ik wist dat VB easy was, maar dit had ik zelf kunnen bedenken Split

Ik ga het morgen proberen en laat wel ff weten wat ik er van gebakken heb.

Thanx