Split function mystery ...again....

  • Thread starter Thread starter Jay
  • Start date Start date
J

Jay

Well this is my function to split the data into its own lines

Sub preSift(ByVal input As String)

Dim spl() As String

spl = New String() {}

spl = Split(input, ControlChars.NewLine) ', , CompareMethod.Text)

Dim x As Int32

For x = 0 To (spl.Length - 1)

Sifter(spl(x))

Next

End Sub



-------------------------- Here is the data its trying to
split------------------------------------



:daytona.winbeta.org 322 mrrrdkjh0 #winbets-ads 1 :
:daytona.winbeta.org 322 mrrrdkjh0 #PreBot` 1 :[+nt]
:daytona.winbeta.org 322 mrrrdkjh0 #kiri 7 :[+rnt] * Kiri * | Newest
Build: 154 (1.2.0) | Site: http://kiri.zsoft.co.uk | Help:
http://kiri.zsoft.co.uk/help | Bugs: http://bugs.kiri.zsoft.co.uk |
Download: http://kiriupdate.zsoft.co.uk/Kiri-1.2.0b154.exe | Changelog:
http://kiriupdate.zsoft.co.uk/changes.txt
:daytona.winbeta.org 322 mrrrdkjh0 #[BzBz] 2 :[+nt]
:daytona.winbeta.org 322 mrrrdkjh0 * 5 :
:daytona.winbeta.org 322 mrrrdkjh0 #winbeta 434 :[+rntSCl] 2.: 12Welcome
to 4W2i8n3B4e2t8a 2:: 12Site/Forum @ www.winbeta.org 2::
12Use trigger(s) !WinBeta !NixBeta !MobileBeta to get latest news
headlines 2:: 12Servers are in #WinBeta-ads 2:: 12No
cracks/keygens/serials/warez 2:: 12What's new: Visual Studio 2005 CTP
May 2004 DVD 32&64bit, Microsoft Host Integration Server 2004 RC 2:.
:daytona.winbeta.org 322 mrrrdkjh0 #linux 2 :[+rnt] 6[ 13Welcome to
#linux, home of the WinBetas Linux Gurus. 6] If you would like to help,
or need help, just ask. | Linux Kernel 2.6.5 Stable 12[ 4Currently
looking for skilled linux users, if your are, plz pm Adam or Gpz. 12]
:daytona.winbeta.org 322 mrrrdkjh0 #T1 1 :[+nt]
:daytona.winbeta.org 322 mrrrdkjh0 #MobileBeta 3 :[+rnt]
0,7http://www.mobilebeta.org12 Welcome to WinBeta PDA helping section
:daytona.winbeta.org 322 mrrrdkjh0 * 30 :
:daytona.winbeta.org 322 mrrrdkjh0 #winbeta-testing 10 :[+rnt] »
9,2...:::Welcome To #WinBeta Testing. Please Use this Channel for testing
any scripts you wish to use.NO there are no scripts to be run in main except
by ops | Please Do Not Request Files Here All The Files are Served in
#WinBeta-Ads:::....
:daytona.winbeta.org 322 mrrrdkjh0 #xboxlive 1 :[+nt]
:daytona.winbeta.org 322 mrrrdkjh0 #Winbeta-Recruits 23 :[+rnt] 12-Welcome
to Winbeta-Recruits 7-This channel is for New Visitors to Winbeta that
would like to start serving our releases 5-Please Read the Policy:
http://www.winbeta.org/newserver/index.html 6-NO warez 6-All Servers,
Please IDLE in here while serving and use SHORT AD MODE.10-Please make it a
priority to serve new/latest releases
:daytona.winbeta.org 322 mrrrdkjh0 #renver 1 :[+rnt]
:daytona.winbeta.org 322 mrrrdkjh0 #arctic2 1 :
:daytona.winbeta.org 322 mrrrdkjh0 #cowboys 2 :[+rnt]
http://home.comcast.net/~MCE2005/sister_Ray.htm Duck and Sally inside,
They're cookin' for the down five, Who're starin' at Miss Rayon, Who's busy
licking up her pig-pen. I'm searching for my mainline. I said I couldn't hit
it sideways, I said I couldn't hit it sideways. just like Sister Ray said.
Rosey and Miss Rayon, They're busy waiting for her booster, who just got
back from Carolina. said she didn't like the weather.....
:daytona.winbeta.org 322 mrrrdkjh0 #[BzBz].priv 1 :[+nt]
:daytona.winbeta.org 322 mrrrdkjh0 #winbeta-ads 388 :[+rntm] 2.:
12Welcome to 4W2i8n3B4e2t8a3-4a2d8s 2:: 12Site/Forum @
www.winbeta.org 2:: 12You must stay in #WinBeta in order to be here.
2:: 12No cracks/keygens/serials/warez 2:: 12What's new: Visual Studio
2005 CTP May 2004 DVD 32&64bit, Microsoft Host Integration Server 2004 RC
2:.
:daytona.winbeta.org 322 mrrrdkjh0 * 10 :
:daytona.winbeta.org 322 mrrrdkjh0 #freeadmission 2 :[+rnt] 9,2Do you Have
Flicks To share ??? So Do We 1,9 come on in lets talk about it // 1,7other
surprises also - humey, test the site already...let me know if it's working
right pls - CB
:daytona.winbeta.org 322 mrrrdkjh0 * 18 :
:daytona.winbeta.org 322 mrrrdkjh0 #nixbeta 8 :[+rnt] [ Welcome to the *nix
outlet for #winbeta ] Check out: LinuxISO.org for Distro and
http://www.winbeta.org/nixbeta/ for news
:daytona.winbeta.org 322 mrrrdkjh0 #winbeta-newservers 1 :
:daytona.winbeta.org 322 mrrrdkjh0 #xboxworld 1 :[+nt]
:daytona.winbeta.org 322 mrrrdkjh0 #CONSOLEZX 1 :[+nt]
:daytona.winbeta.org 323 mrrrdkjh0 :End of /LIST
 
Its still not working is what im trying to say...
| Well this is my function to split the data into its own lines
|
| Sub preSift(ByVal input As String)
|
| Dim spl() As String
|
| spl = New String() {}
|
| spl = Split(input, ControlChars.NewLine) ', , CompareMethod.Text)
|
| Dim x As Int32
|
| For x = 0 To (spl.Length - 1)
|
| Sifter(spl(x))
|
| Next
|
| End Sub
|
|
|
| -------------------------- Here is the data its trying to
| split------------------------------------
|
|
|
| :daytona.winbeta.org 322 mrrrdkjh0 #winbets-ads 1 :
| :daytona.winbeta.org 322 mrrrdkjh0 #PreBot` 1 :[+nt]
| :daytona.winbeta.org 322 mrrrdkjh0 #kiri 7 :[+rnt] * Kiri * | Newest
| Build: 154 (1.2.0) | Site: http://kiri.zsoft.co.uk | Help:
| http://kiri.zsoft.co.uk/help | Bugs: http://bugs.kiri.zsoft.co.uk |
| Download: http://kiriupdate.zsoft.co.uk/Kiri-1.2.0b154.exe |
Changelog:
| http://kiriupdate.zsoft.co.uk/changes.txt
| :daytona.winbeta.org 322 mrrrdkjh0 #[BzBz] 2 :[+nt]
| :daytona.winbeta.org 322 mrrrdkjh0 * 5 :
| :daytona.winbeta.org 322 mrrrdkjh0 #winbeta 434 :[+rntSCl] 2.:
12Welcome
| to 4W2i8n3B4e2t8a 2:: 12Site/Forum @ www.winbeta.org 2::
| 12Use trigger(s) !WinBeta !NixBeta !MobileBeta to get latest news
| headlines 2:: 12Servers are in #WinBeta-ads 2:: 12No
| cracks/keygens/serials/warez 2:: 12What's new: Visual Studio 2005 CTP
| May 2004 DVD 32&64bit, Microsoft Host Integration Server 2004 RC 2:.
| :daytona.winbeta.org 322 mrrrdkjh0 #linux 2 :[+rnt] 6[ 13Welcome to
| #linux, home of the WinBetas Linux Gurus. 6] If you would like to help,
| or need help, just ask. | Linux Kernel 2.6.5 Stable 12[ 4Currently
| looking for skilled linux users, if your are, plz pm Adam or Gpz. 12]
| :daytona.winbeta.org 322 mrrrdkjh0 #T1 1 :[+nt]
| :daytona.winbeta.org 322 mrrrdkjh0 #MobileBeta 3 :[+rnt]
| 0,7http://www.mobilebeta.org12 Welcome to WinBeta PDA helping section
| :daytona.winbeta.org 322 mrrrdkjh0 * 30 :
| :daytona.winbeta.org 322 mrrrdkjh0 #winbeta-testing 10 :[+rnt] »
| 9,2...:::Welcome To #WinBeta Testing. Please Use this Channel for
testing
| any scripts you wish to use.NO there are no scripts to be run in main
except
| by ops | Please Do Not Request Files Here All The Files are Served in
| #WinBeta-Ads:::....
| :daytona.winbeta.org 322 mrrrdkjh0 #xboxlive 1 :[+nt]
| :daytona.winbeta.org 322 mrrrdkjh0 #Winbeta-Recruits 23 :[+rnt]
12-Welcome
| to Winbeta-Recruits 7-This channel is for New Visitors to Winbeta that
| would like to start serving our releases 5-Please Read the Policy:
| http://www.winbeta.org/newserver/index.html 6-NO warez 6-All Servers,
| Please IDLE in here while serving and use SHORT AD MODE.10-Please make it
a
| priority to serve new/latest releases
| :daytona.winbeta.org 322 mrrrdkjh0 #renver 1 :[+rnt]
| :daytona.winbeta.org 322 mrrrdkjh0 #arctic2 1 :
| :daytona.winbeta.org 322 mrrrdkjh0 #cowboys 2 :[+rnt]
| http://home.comcast.net/~MCE2005/sister_Ray.htm Duck and Sally inside,
| They're cookin' for the down five, Who're starin' at Miss Rayon, Who's
busy
| licking up her pig-pen. I'm searching for my mainline. I said I couldn't
hit
| it sideways, I said I couldn't hit it sideways. just like Sister Ray said.
| Rosey and Miss Rayon, They're busy waiting for her booster, who just got
| back from Carolina. said she didn't like the weather.....
| :daytona.winbeta.org 322 mrrrdkjh0 #[BzBz].priv 1 :[+nt]
| :daytona.winbeta.org 322 mrrrdkjh0 #winbeta-ads 388 :[+rntm] 2.:
| 12Welcome to 4W2i8n3B4e2t8a3-4a2d8s 2:: 12Site/Forum @
| www.winbeta.org 2:: 12You must stay in #WinBeta in order to be here.
| 2:: 12No cracks/keygens/serials/warez 2:: 12What's new: Visual
Studio
| 2005 CTP May 2004 DVD 32&64bit, Microsoft Host Integration Server 2004 RC
| 2:.
| :daytona.winbeta.org 322 mrrrdkjh0 * 10 :
| :daytona.winbeta.org 322 mrrrdkjh0 #freeadmission 2 :[+rnt] 9,2Do you
Have
| Flicks To share ??? So Do We 1,9 come on in lets talk about it //
1,7other
| surprises also - humey, test the site already...let me know if it's
working
| right pls - CB
| :daytona.winbeta.org 322 mrrrdkjh0 * 18 :
| :daytona.winbeta.org 322 mrrrdkjh0 #nixbeta 8 :[+rnt] [ Welcome to the
*nix
| outlet for #winbeta ] Check out: LinuxISO.org for Distro and
| http://www.winbeta.org/nixbeta/ for news
| :daytona.winbeta.org 322 mrrrdkjh0 #winbeta-newservers 1 :
| :daytona.winbeta.org 322 mrrrdkjh0 #xboxworld 1 :[+nt]
| :daytona.winbeta.org 322 mrrrdkjh0 #CONSOLEZX 1 :[+nt]
| :daytona.winbeta.org 323 mrrrdkjh0 :End of /LIST
|
|
|
|
 
* "Jay said:
Sub preSift(ByVal input As String)

Dim spl() As String

spl = New String() {}
Click to expand...

Skip the line above.
spl = Split(input, ControlChars.NewLine) ', , CompareMethod.Text)
Click to expand...

Maybe the string is using another line separation character. Play
around with 'ControlChars.Cr' and 'ControlChars.Lf'.
 
Back
Top