# Variable Problem.

1. ## 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.

Tim.

Example:

Dim str As String

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

MsgBox str

2. ## 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.
>
>
>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. ## Re: Variable Problem.

Hi Ron,

Thank you very much for your code. I have another question regarding the

For example:

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

or

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

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.
> >
> >
> >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. ## 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
>
>For example:
>
>str = ("12/1/06, 12/15/05, 1/1/05, 10/10/05")
>
>or
>
>str = ("Peter Smith, John betz, John bocco")
>
>
>Tim.
>

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

5. ## 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")

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
> >
> >For example:
> >
> >str = ("12/1/06, 12/15/05, 1/1/05, 10/10/05")
> >
> >or
> >
> >str = ("Peter Smith, John betz, John bocco")
> >
> >
> >Tim.
> >

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

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

#### 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