• Home
 · 
• Internet/HTML
 · 
• Easy Text Parse, for use with Winsock! Parses a string so you can send many values in 1string and t

Easy Text Parse, for use with Winsock! Parses a string so you can send many values in 1string and t

Easy Text Parse, for use with Winsock! Parses a string so you can send many values in 1string and the parse them again.

API Declarations


Dim partB
Dim bitA,bitB,bitC



Rate Easy Text Parse, for use with Winsock! Parses a string so you can send many values in 1string and t

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

bitB = "email"
bitC = "website"
partA = bitA & "|" & bitB & "|" & bitC

winsock.senddata partA

'--- all winsock send and receive ---'

winsock.getdata partB

'go thru the string checking every char for a |
for i = 1 to len(partB)
  'if the char is |
  if mid(partB,i,1) = "|" then
  'put all the data before the | into bitA
  bitA = len(partB,1,i-1)
  'remove partA
  partB = len(partB,i+1)
  goto next:
  end if
next i

next:

for i = 1 to len(partB)
  if mid(partB,i,1) = "|" then

  bitB = len(partB,1,i-1)
  bitC = len(partB,i+1)
  goto done:
  end if
next i

done:
msgbox "bitA: " & bitA & " - bitB: " & bitB & " - bitC: " & bitC