Split function mystery ...again....

Collapse
This topic is closed.
X
X
 
  • Time
  • Show
Clear All
new posts
  • Jay

    Split function mystery ...again....

    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.Ne wLine) ', , CompareMethod.T ext)

    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.winbet a.org 322 mrrrdkjh0 #winbets-ads 1 :
    :daytona.winbet a.org 322 mrrrdkjh0 #PreBot` 1 :[+nt]
    :daytona.winbet a.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:

    :daytona.winbet a.org 322 mrrrdkjh0 #[BzBz] 2 :[+nt]
    :daytona.winbet a.org 322 mrrrdkjh0 * 5 :
    :daytona.winbet a.org 322 mrrrdkjh0 #winbeta 434 :[+rntSCl] 2.: 12Welcome
    to 4W2i8n3B4e 2t8a 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.winbet a.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.winbet a.org 322 mrrrdkjh0 #T1 1 :[+nt]
    :daytona.winbet a.org 322 mrrrdkjh0 #MobileBeta 3 :[+rnt]
    0,7http://www.mobilebeta. org12 Welcome to WinBeta PDA helping section
    :daytona.winbet a.org 322 mrrrdkjh0 * 30 :
    :daytona.winbet a.org 322 mrrrdkjh0 #winbeta-testing 10 :[+rnt] »
    9,2...:::Welc ome 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.winbet a.org 322 mrrrdkjh0 #xboxlive 1 :[+nt]
    :daytona.winbet a.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.winbet a.org 322 mrrrdkjh0 #renver 1 :[+rnt]
    :daytona.winbet a.org 322 mrrrdkjh0 #arctic2 1 :
    :daytona.winbet a.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.winbet a.org 322 mrrrdkjh0 #[BzBz].priv 1 :[+nt]
    :daytona.winbet a.org 322 mrrrdkjh0 #winbeta-ads 388 :[+rntm] 2.:
    12Welcome to 4W2i8n3B4e 2t8a3-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.winbet a.org 322 mrrrdkjh0 * 10 :
    :daytona.winbet a.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.winbet a.org 322 mrrrdkjh0 * 18 :
    :daytona.winbet a.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.winbet a.org 322 mrrrdkjh0 #winbeta-newservers 1 :
    :daytona.winbet a.org 322 mrrrdkjh0 #xboxworld 1 :[+nt]
    :daytona.winbet a.org 322 mrrrdkjh0 #CONSOLEZX 1 :[+nt]
    :daytona.winbet a.org 323 mrrrdkjh0 :End of /LIST




  • Jay

    #2
    Re: Split function mystery ...again....

    Its still not working is what im trying to say...
    "Jay" <mrpolitics@cin ci.rr.com> wrote in message
    news:#Fp7btDREH A.3728@TK2MSFTN GP10.phx.gbl...
    | 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.Ne wLine) ', , CompareMethod.T ext)
    |
    | 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.winbet a.org 322 mrrrdkjh0 #winbets-ads 1 :
    | :daytona.winbet a.org 322 mrrrdkjh0 #PreBot` 1 :[+nt]
    | :daytona.winbet a.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.winbet a.org 322 mrrrdkjh0 #[BzBz] 2 :[+nt]
    | :daytona.winbet a.org 322 mrrrdkjh0 * 5 :
    | :daytona.winbet a.org 322 mrrrdkjh0 #winbeta 434 :[+rntSCl] 2.:
    12Welcome
    | to 4W2i8n3B4e 2t8a 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.winbet a.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.winbet a.org 322 mrrrdkjh0 #T1 1 :[+nt]
    | :daytona.winbet a.org 322 mrrrdkjh0 #MobileBeta 3 :[+rnt]
    | 0,7http://www.mobilebeta. org12 Welcome to WinBeta PDA helping section
    | :daytona.winbet a.org 322 mrrrdkjh0 * 30 :
    | :daytona.winbet a.org 322 mrrrdkjh0 #winbeta-testing 10 :[+rnt] »
    | 9,2...:::Welc ome 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.winbet a.org 322 mrrrdkjh0 #xboxlive 1 :[+nt]
    | :daytona.winbet a.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.winbet a.org 322 mrrrdkjh0 #renver 1 :[+rnt]
    | :daytona.winbet a.org 322 mrrrdkjh0 #arctic2 1 :
    | :daytona.winbet a.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.winbet a.org 322 mrrrdkjh0 #[BzBz].priv 1 :[+nt]
    | :daytona.winbet a.org 322 mrrrdkjh0 #winbeta-ads 388 :[+rntm] 2.:
    | 12Welcome to 4W2i8n3B4e 2t8a3-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.winbet a.org 322 mrrrdkjh0 * 10 :
    | :daytona.winbet a.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.winbet a.org 322 mrrrdkjh0 * 18 :
    | :daytona.winbet a.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.winbet a.org 322 mrrrdkjh0 #winbeta-newservers 1 :
    | :daytona.winbet a.org 322 mrrrdkjh0 #xboxworld 1 :[+nt]
    | :daytona.winbet a.org 322 mrrrdkjh0 #CONSOLEZX 1 :[+nt]
    | :daytona.winbet a.org 323 mrrrdkjh0 :End of /LIST
    |
    |
    |
    |


    Comment

    • Herfried K. Wagner [MVP]

      #3
      Re: Split function mystery ...again....

      * "Jay" <mrpolitics@cin ci.rr.com> scripsit:[color=blue]
      > Sub preSift(ByVal input As String)
      >
      > Dim spl() As String
      >
      > spl = New String() {}[/color]

      Skip the line above.
      [color=blue]
      > spl = Split(input, ControlChars.Ne wLine) ', , CompareMethod.T ext)[/color]

      Maybe the string is using another line separation character. Play
      around with 'ControlChars.C r' and 'ControlChars.L f'.

      --
      Herfried K. Wagner [MVP]
      <URL:http://dotnet.mvps.org/>

      Comment

      Working...