Title:       
Web-Link: http://www.arabteam2000-forum.com/index.php?showtopic=125651
Description: SentenceSplit
Department: Visual Basic.NET forum
Develop Using: Microsoft Visual Basic.NET 2005
Assistant Tool(s):
Version: 1.10
Last update: 03 May 2007
Date: 03 May 2007
Time Zone: (GMT + 02:00) Cairo
Author: Eng. Usama El-Mokadem: musama@hotmail.com

Topic(125651) [May 03 2007, 01:38 AM]: By : http://www.arabteam2000-forum.com/index.php?showuser=111946
=======
-----BEGIN TOPIC-----
  
               
            <
           ......
         
  

-----Update: May 03 2007, 12:55 PM
   
    split    substring  mid
     2005 
     
-----END TOPIC-----

Solution:
=======
-----BEGIN SOLUTION-----
  SubString  Mid

------- [Sample Code: Mid] -------
        Dim sSentence As String
        Dim ch As String
        Dim sWord As String
        Dim n As Long

        sSentence = "Welcome   to    Visual Basic.NET"
        sSentence = sSentence & " "

        sWord = ""
        For n = 1 To sSentence.Length
            ch = Mid$(sSentence, n, 1)
            If ch = " " Then
                sWord = sWord.Trim
                If sWord.Length > 0 Then
                    MessageBox.Show(sWord)
                End If
                sWord = ""
            Else
                sWord = sWord + ch
            End If
        Next
-----------------------------------------

------- [Sample Code: SubString] -------
        Dim sSentence As String
        Dim ch As String
        Dim sWord As String
        Dim n As Long

        sSentence = "Welcome   to    Visual Basic.NET"
        sSentence = sSentence & " "

        sWord = ""
        For n = 1 To sSentence.Length - 1
            ch = sSentence.Substring(n, 1)
            If ch = " " Then
                sWord = sWord.Trim
                If sWord.Length > 0 Then
                    MessageBox.Show(sWord)
                End If
                sWord = ""
            Else
                sWord = sWord + ch
            End If
        Next
-----------------------------------------
   SubString
-----END SOLUTION-----

Attachments:
============
Split_up1.zip
The (Attached) Solution Suggested By Eng. Usama El-Mokadem: http://www.arabteam2000-forum.com/index.php?showuser=98027

CONTACT INFORMATION:
=======================
  Eng. Usama El-Mokadem
  Email: musama@hotmail.com
  Web: http://musama.tripod.com
  Mobile: 0020 10 1289308
  Egypt