PHP style string explode function

<p>This piece of code really comes in handy when storing data (unpredictable in
length) into a file, or Sending data over the net (communication between Client
and Server applications).</p>
<p>For example, You have a client and server app. </p>
<p>When any of the two applications receive data, you would want to know what to
do with it, therefore you add a header, say 1 alpha character long. Then you
have rest of the data. But what if you need to send two or more strings at the
same time. Like the following example.</p>
<p>The server app. sends a data, which is encrypted, through two values - one
which has been hard-coded, and the other randomly generated whenever the server
broadcasts data to the client (unpredictable in length). </p>
<p>Now how would the client know the second encryption code?</p>
<p>We have 3 values we need to send to the client, 1- the code to let the client
know what to do with the data  2- The random encryption code 3- The
encrypted data it self(unpredictable in length).</p>
<p>1- d<br>
2- hfh8i3*&#^<br>
3- $&HD&*@#</p>
<p>As I said before, we've assigned the first letter of the broadcast string to
let the client know what to do with it. d (display it), now the encryption code,
normally you would measure how long the encryption code is, and add that length
in front of the encryption, and would do the same with the data. In all, it
takes way too long to code this, and uses too much time to harvest at the client
side, and during the process some where weird errors can occur causing the app
to crash or to read weird inputs.</p>
<p>This is where this code can come in handy.</p>
<p>All the server has to do, is combine all of these three values together
(separated by a delimiter) </p>
<p>possibly like this: d*|*|*hfh8i3*&#^*|*|*$&HD&*@#</p>
<p>*notice the *|*|* separating the strings. This delimiter can be anything,
from a single character to fairly long string. I suggest using weird patterns
like above to avoid any confusion between the delimiter and the actual data.</p>
<p>Now on the client side all that has to be done is:</p>
<p>Dim args(30) As String<br>
Dim TotalSplits as Integer<br>
Dim SockInput as String<br>
<br>
</p>
<p>Winsock.getdata SockInput<br>
<br>
TotalSplits = explodeargs(SockInput, args)</p>
<p>---------</p>
<p>That all there is to it. That statement above will return the following.</p>
<p>TotalSplits = 2 (because starting from 0, 3 is only 2) (this returns the
TOTAL splitable segments. <br>
                       
And with this you can do a For loop... like:   For i = 0 to
TotalSplits step 1)<br>
args(0)      = d<br>
args(1)      = hfh8i3*&#^<br>
args(2)      = $&HD&*@#</p>
<p>---------</p>
<p>I hope the example above demonstrated a possible use for this. This isn't all
error proof, or anything big, but sometimes it comes really in handy.<br>
Below is the code you can place anywhere to use.<br>
<br>
<font color="#0000FF">Public Function</font> explodeargs(<font color="#0000FF">ByVal</font> s,
<font color="#0000FF"> ByRef</font> arg() <font color="#0000FF"> As String</font>,
<font color="#0000FF"> Optional ByVal</font> splitpattern <font color="#0000FF"> As String</font> = "*|*|*")
<font color="#0000FF"> As Integer</font><br>
            <font color="#0000FF">On Error Resume Next</font>
<font color="#008000"> ' on error, just quietly continue on to next operation</font><br>
            <font color="#0000FF">Dim</font> i<br>
            <font color="#0000FF">For</font> i = 0 To 30
<font color="#0000FF"> Step</font> 1 <font color="#008000"> ' assume maximum 30 option strings</font><br>
               
arg(i) = <font color="#0000FF"> Null</font> ' null everything in the array first<br>
            <font color="#0000FF">Next<br>
</font><br>
            <font color="#0000FF">On Error GoTo</font>
ExtractionFinished<br>
           <font color="#0000FF">
For</font> i = 0 To 30 <font color="#0000FF"> Step</font> 1<br>
               
arg(i) = Split(s, splitpattern)(i) <font color="#008000"> ' begin splitting, if an error occurs, then auto exit</font><br>
            <font color="#0000FF">Next</font><br>
<br>
ExtractionFinished:<br>
            explodeargs = i - 1<br>
<font color="#0000FF">End Function</font></p>