Array or what

[Tiovital]

Hi,
I have to write a program that check a textbox and count the chars (numbers) in it then subtract 2ND number from the 1ST and the 3RD from the 2ND and so on - Now IF the number (after subtract ) is fixed or not. so, how's this done?

P.S. how can i split a number - 123456789 - to a 1,2,3,4,5,6,7,8,...???

thanks in advance.

[plenderj]

Iterate through to the end of the string and pick each number out using mid()

[Tiovital]

plenderj that was FAST

[plenderj]

yup

[pprabhakar]

why dont you use cstr function and the mid function???


mytext= cstr(mynumber)
number1=mid(mytext,1,1)

[Tiovital]

Hi,
Ok - then What?

[plenderj]

Option Explicit
 
Private Sub Command1_Click()
    On Error Resume Next
    Dim i As Long
    For i = 1 To Len(Text1.Text)
        Debug.Print "Position (" & i + 1 & ") minus position (" & i & ") : " & _
                    CLng(Mid(Text1.Text, i + 1, 1)) - CLng(Mid(Text1.Text, i, 1))
    Next
End Sub
 
Private Sub Form_Load()
    Dim i As Long
    Text1.Text = ""
    For i = 1 To 9
        Text1.Text = Text1.Text & i
    Next
End Sub

[Bananafish]

dim intX as integer
dim strResult as string
dim strNumber as string
 
strNumber = trim$(cstr$(lngTestNumber))
For intX = 1 to len(strNumber)
  if strResult <> "" then 
     strResult = strResult & ", "
  end if
  strResult = strResult & mid$(strNumber, intX, 1)
Next intX

[Tiovital]

plenderj - do u know that u r GREAT???

[plenderj]

Originally posted by Tiovital
plenderj - do u know that u r GREAT???

yes

[da_silvy]

*cough*b*****cough*