+ Reply to Thread
Results 1 to 5 of 5

Variable Problem.

  1. #1
    Tim
    Guest

    Variable Problem.

    Hi folks,

    I need a help for my top problem. I spend a lot of time but I can't find a
    solution for it. The following is my sample of my code. I want to sort the
    value of str in ascending and the max value of str. Any help will be
    appreciated.

    Thanks in advance.

    Tim.


    Example:

    Dim str As String

    str = ("9, 5, 8, 3, 1, 6")

    MsgBox str


  2. #2
    Ron Rosenfeld
    Guest

    Re: Variable Problem.

    On Sun, 22 Jan 2006 08:52:02 -0800, Tim <Tim@discussions.microsoft.com> wrote:

    >Hi folks,
    >
    >I need a help for my top problem. I spend a lot of time but I can't find a
    >solution for it. The following is my sample of my code. I want to sort the
    >value of str in ascending and the max value of str. Any help will be
    >appreciated.
    >
    >Thanks in advance.
    >
    >Tim.
    >
    >
    >Example:
    >
    >Dim str As String
    >
    >str = ("9, 5, 8, 3, 1, 6")
    >
    >MsgBox str


    Here's one way, if you have VBA6 or later:

    =================================
    Option Explicit

    Sub foo()
    Dim str As String
    Dim TempArray As Variant, Temp As Variant
    Dim i As Integer
    Dim NoExchanges As Integer

    str = ("9, 5, 8, 3, 1, 6")
    TempArray = Split(str, ", ")

    ' Loop until no more "exchanges" are made.
    Do
    NoExchanges = True

    ' Loop through each element in the array.
    For i = 0 To UBound(TempArray) - 1

    ' If the element is greater than the element
    ' following it, exchange the two elements.
    If TempArray(i) > TempArray(i + 1) Then
    NoExchanges = False
    Temp = TempArray(i)
    TempArray(i) = TempArray(i + 1)
    TempArray(i + 1) = Temp
    End If
    Next i
    Loop While Not (NoExchanges)

    str = Join(TempArray, ", ")


    MsgBox (str & vbLf & "Max Value: " & TempArray(UBound(TempArray)))
    End Sub
    ===============================


    --ron

  3. #3
    Tim
    Guest

    Re: Variable Problem.

    Hi Ron,

    Thank you very much for your code. I have another question regarding the
    code. How to sort the alphabet and date? Please help.

    For example:

    str = ("12/1/06, 12/15/05, 1/1/05, 10/10/05")

    or

    str = ("Peter Smith, John betz, John bocco")

    Thanks in advance.

    Tim.

    "Ron Rosenfeld" wrote:

    > On Sun, 22 Jan 2006 08:52:02 -0800, Tim <Tim@discussions.microsoft.com> wrote:
    >
    > >Hi folks,
    > >
    > >I need a help for my top problem. I spend a lot of time but I can't find a
    > >solution for it. The following is my sample of my code. I want to sort the
    > >value of str in ascending and the max value of str. Any help will be
    > >appreciated.
    > >
    > >Thanks in advance.
    > >
    > >Tim.
    > >
    > >
    > >Example:
    > >
    > >Dim str As String
    > >
    > >str = ("9, 5, 8, 3, 1, 6")
    > >
    > >MsgBox str

    >
    > Here's one way, if you have VBA6 or later:
    >
    > =================================
    > Option Explicit
    >
    > Sub foo()
    > Dim str As String
    > Dim TempArray As Variant, Temp As Variant
    > Dim i As Integer
    > Dim NoExchanges As Integer
    >
    > str = ("9, 5, 8, 3, 1, 6")
    > TempArray = Split(str, ", ")
    >
    > ' Loop until no more "exchanges" are made.
    > Do
    > NoExchanges = True
    >
    > ' Loop through each element in the array.
    > For i = 0 To UBound(TempArray) - 1
    >
    > ' If the element is greater than the element
    > ' following it, exchange the two elements.
    > If TempArray(i) > TempArray(i + 1) Then
    > NoExchanges = False
    > Temp = TempArray(i)
    > TempArray(i) = TempArray(i + 1)
    > TempArray(i + 1) = Temp
    > End If
    > Next i
    > Loop While Not (NoExchanges)
    >
    > str = Join(TempArray, ", ")
    >
    >
    > MsgBox (str & vbLf & "Max Value: " & TempArray(UBound(TempArray)))
    > End Sub
    > ===============================
    >
    >
    > --ron
    >


  4. #4
    Ron Rosenfeld
    Guest

    Re: Variable Problem.

    On Sun, 22 Jan 2006 22:31:02 -0800, Tim <Tim@discussions.microsoft.com> wrote:

    >Hi Ron,
    >
    >Thank you very much for your code. I have another question regarding the
    >code. How to sort the alphabet and date? Please help.
    >
    >For example:
    >
    >str = ("12/1/06, 12/15/05, 1/1/05, 10/10/05")
    >
    >or
    >
    >str = ("Peter Smith, John betz, John bocco")
    >
    >Thanks in advance.
    >
    >Tim.
    >



    What was the problem with the sort you obtained when you tried those values for
    str?
    --ron

  5. #5
    Tim
    Guest

    Re: Variable Problem.

    Hi Ron,

    When I ran the code with the following str (date), I got the result like
    this: 1/1/05, 10/10/05, 12/1/06, 12/15/05 Max Value: 12/15/05. I am
    expecting 12/1/06 is the last value but it is not.

    str = ("12/1/06, 12/15/05, 1/1/05, 10/10/05")

    Please help.

    Thanks in advance.

    Tim.

    "Ron Rosenfeld" wrote:

    > On Sun, 22 Jan 2006 22:31:02 -0800, Tim <Tim@discussions.microsoft.com> wrote:
    >
    > >Hi Ron,
    > >
    > >Thank you very much for your code. I have another question regarding the
    > >code. How to sort the alphabet and date? Please help.
    > >
    > >For example:
    > >
    > >str = ("12/1/06, 12/15/05, 1/1/05, 10/10/05")
    > >
    > >or
    > >
    > >str = ("Peter Smith, John betz, John bocco")
    > >
    > >Thanks in advance.
    > >
    > >Tim.
    > >

    >
    >
    > What was the problem with the sort you obtained when you tried those values for
    > str?
    > --ron
    >


+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1