hi,
i want to creat an array in vb6 for storing asc values of a given word. how can i creat that array..a one asc value must store in as array element.pls help me for tht. thanx
hiru

hi there..

if you dont know how many items will have the array, just do it with a collection.

if you still want to use an array, just dim it like:

dim MyArray(10) as integer

HTH

Gonzalo

If what you are doing does not require high performance,
IE: writing a game...

Try this:

Dim MyArray() as Integer 'Array to hold the Acii values
Dim intLoop as integer 'For loop variable
dim intLength as Integer 'Length of the string being converted to
                         'Ascii values

intLength = Len(strMyString) 'Get the length of the string

For intLoop = 0 to (intLength - 1) 'Loop through the string
    Redim Preserve MyArray(intLoop) 'Redimension the array and
                                    'preserve the existing elements
    'Take the character in the intLoop + 1 position and
    'get its Ascii value.
    MyArray(intLoop) = Asc(Mid(strMyString, intLoop + 1, 1))
Next

to AndreK: no need to "redim preserve" in every loop: just declare the array before the loop as:

redim MyArray(Len(strMyString)-1)
For...

Marco

Good catch...

Hi AndreK,

I tried your code but it didn't make my array elements in ascending order.

   I wrote a small function to do this. You have to pass the string you need to make in ascening order and function will return a array of elements ordered by ASC. If you are worrying about the CASE of your characters please modify the relavant line.
   If you don't have SQL Server use Access or any other ...

[u]Function</u>
Public Function String_Order(ByVal strMyString As String) As Variant

Dim MyArray() As String
Dim intLoop As Integer
Dim intVal As Integer
Dim rsPrimary As New ADODB.Recordset

On Error GoTo ERROR_HANDLER

cnn.Execute "CREATE TABLE #values(value int)"

For intLoop = 0 To (Len(strMyString) - 1)
    ReDim Preserve MyArray(intLoop)
    intVal = Asc(UCase(Mid(strMyString, intLoop + 1, 1)))
    cnn.Execute "INSERT INTO #values VALUES(" & intVal & ")"
Next

rsPrimary.Open "SELECT value FROM #values ORDER BY value", cnn
intLoop = 0
Do While Not rsPrimary.EOF
    MyArray(intLoop) = Chr(CLng(rsPrimary!Value))
    rsPrimary.MoveNext
    intLoop = intLoop + 1
Loop

String_Order = MyArray()

Exit Function

ERROR_HANDLER:

    cnn.Execute "DROP TABLE #values"
    Resume

End Function

Private Sub Form_Load()
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=serverdatabase;Data Source=(local)"
End Sub


[u]Testing the Function</u>
Private Sub Command1_Click()

    Dim arrString As Variant
    Dim str As String
    Dim i As Integer

    arrString = String_Order("Nalaka")

    For i = 0 To UBound(arrString)
        str = str & arrString(i)
    Next i

    MsgBox str

End Sub

Please post if you need more info regarding this.


nalaka hewage