Visual Basic

helelark1238-Sep-09 2:03

8-Sep-09 2:03

you can use the mid function:

mid(yourstring,position,lenght) returns substring.
In your case lenght=1 and position increment each iteration.

Good luck

Shay Noy

PAguilar098-Sep-09 2:36

8-Sep-09 2:36

would this be able to work if the
user were to enter lets say 105,789

then i would need to display thousand place: 105
hundreds place is: 7
and so on
??

Johan Hakkesteegt8-Sep-09 3:21

Johan Hakkesteegt

8-Sep-09 3:21

or better yet, use .net: Textbox1.Text.SubString(i, 1) where i is the zero based index number of the position you want.

My advice is free, and you may get what you paid for.

PAguilar098-Sep-09 10:41

8-Sep-09 10:41

So i could use a For loop, correct?

thanks

PAguilar098-Sep-09 11:15

8-Sep-09 11:15

okay so this is the for loop i made but i know its wrong and it doesnt work all the time

I was just trying to see if it would at least display my tens place b4 i move on to work with the other values

For i = 0 To TextBox1.Text.Length - 1
tens = i

Label10.Text = tens

Next i

the textbox would be where the user would enter in the number
tens is a integer variable i created
and the label10.text is where i am displaying the tens value

PAguilar098-Sep-09 19:58

8-Sep-09 19:58

i also tried this for loop:

For index As Integer = TextBox1.Text.Length - 1 To 0 Step -1

MessageBox.Show(TextBox1.Text(index))

Next

i am just using the messagebox to get each individual character and show me that it is working.
i am really supposed to be sending it to separate textboxes.

but i dont know or understand how to send the first indexed item to the first textbox to be displayed, and then continue to
send out the other separated characters to the other textboxes.

Johan Hakkesteegt8-Sep-09 20:32

Johan Hakkesteegt

8-Sep-09 20:32

The question you first need to ask yourself is, how large a number can the user possibly enter? In other words, you will first have to determine how many positions you will have to report on (singles, tens, hundreds, thousands, tenthousands, hundredthousands, etc). In yet other words, how many textboxes will you need to put on your form?

So as Liqz suggested, it might be best to use Chars, and an array first, before using a loop.
Something like:
Dim PositionsArray() As Char = TextBox1.Text.ToCharArray
Now you can easily determine the number of characters:
Dim AmountOfPositions As Integer = PositionsArray.Length
Now you almost know how many positions you will have to handle. But what if we use your example: 105,749 ? This has a comma in the middle, which is also a position, but not a number.
Here you could use a For Each loop:

For Each c As Char In PositionsArray
 'This will loop through the characters from left to right'
 'Then play around with the possiblities of the Char type:'
 If Not Char.IsDigit(c) Then
   MsgBox("I found something other than a number (" & c.ToString & ")" & _
          " at index: " & Array.IndexOf(PositionsArray, c))
 End If
Next

Next you could look into the Case statement. like Steven suggested below.

My advice is free, and you may get what you paid for.

PAguilar099-Sep-09 1:34

9-Sep-09 1:34

First of all thank u so much for all the help

I tried using the case statement but when I tried to pass the myNumber.Units, Tens, and so on to display in a separate
textbox it wouldn't display anything.

Case 1
myNumber.Units = sEnteredNumber.SubString(idx, 1)
Textbox1.text = myNumber.Units

This is what i tried doing to display to the user what the ones, tens and so on were but it wouldn't display anything?

Steven J Jowett8-Sep-09 4:56

Steven J Jowett

8-Sep-09 4:56

First create a structure to hold the results

Structure NumberBreakDown
    Dim Units as byte
    Dim Tens as byte
    Dim Hundreds as byte
    Dim Thousands as integer
End Struture

Then

Dim myNumber as NumberBreakDown
Dim position as integer = 0
Dim sEnteredNumber as string = enteredNumberTextBox.Text.Trim
For idx as byte = sEnteredNumber.Length -1 to 0
   position += 1
   Select Case position
     Case 1
        myNumber.Units = sEnteredNumber.SubString(idx, 1)
     Case 2
        myNumber.Tens = sEnteredNumber.SubString(idx, 1)
     Case 3
        myNumber.Hundreds = sEnteredNumber.SubString(idx, 1)
     Case Else
        myNumber.Thousands = sEnteredNumber.SubString(0, sEnteredNumber.Length - Position +1)
   End Select
Next

The above obviously does not handle commas and decimal places, but could easily be modified to.

Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.

PAguilar099-Sep-09 1:32

9-Sep-09 1:32

I tried using this case statement but when I tried to pass the myNumber.Units, Tens, and so on to display in a separate
textbox it wouldn't display anything.

Case 1
myNumber.Units = sEnteredNumber.SubString(idx, 1)
Textbox1.text = myNumber.Units

This is what i tried doing to display to the user what the ones, tens and so on were but it wouldn't display anything?

Thank you for all the help

Jay Royall9-Sep-09 2:25

Jay Royall

9-Sep-09 2:25

I think there may be a small omission in Steven's code (and I apologise now if I am wrong, Steven!). But I think you need to tell the loop to count backwards, otherwise the loop is going to count up from the length of string - 1 to 0. Try adding 'Step -1' to the end of for statement.

PAguilar099-Sep-09 3:21

9-Sep-09 3:21

ok first of all THANK U STEVEN the code worked!
it was just missin that step -1 as u had stated

but the only thing is if i try to enter lets say
123456, just like that

the thousands place will only pick up 1, not 123

do i need to do a test if the number entered is
more then 4 digits long?

thank u everyone!

Jay Royall9-Sep-09 3:40

Jay Royall

9-Sep-09 3:40

Try changing the 'Case Else' statement to this:

Case Else
        myNumber.Thousands = sEnteredNumber.SubString(0, Position - 3)

PAguilar0912-Sep-09 19:48

12-Sep-09 19:48

Thanks it worked and i appreciate all da help!!!

Johan Hakkesteegt9-Sep-09 3:05

Johan Hakkesteegt

9-Sep-09 3:05

Could you post the entire code of the loop, and everything inside it, please?

My advice is free, and you may get what you paid for.

PAguilar099-Sep-09 3:28

9-Sep-09 3:28

well im at work right now and dont have the code on me
but it was just like stevens code

but the good thing is i got it to work
but the only thing im still trying to figure out

is when a user enters lets say: 12345

the thousands should show 12
but right now it onlh will display 1 only
and the hundreds and ones and tens do work properly

i was thinking maybe an if statement???

the only change i made to stevns case was added
step -1 to the end of the for loop

Ian Shlasko8-Sep-09 5:47

Ian Shlasko

8-Sep-09 5:47

Well, if you parse it into an actual integer, instead of using it as a string, it gets easier, using a combination of the "mod" (modulus) and "div" (division without remainder) operators...

123,456 mod 1000 = 456
456 div 100 = 4

So your "hundreds" place is (X mod 1000 div 100)

If you want to get more than just the one digit, like your other replies, skip the "mod" step and just run it through a div.

123,456 div 100 = 123

Proud to have finally moved to the A-Ark. Which one are you in?
Developer, Author (Guardians of Xen)

Cache datatable [modified]

dan!sh 8-Sep-09 7:55

dan!sh

8-Sep-09 7:55

You can use String.ToCharArray method. Then use TryParse to check if the character is an integer and then display it.

It's not necessary to be so stupid, either, but people manage it. - Christian Graus, 2009 AD

helelark1237-Sep-09 23:10

7-Sep-09 23:10

Hello,

I am writting an aplication in VB.NET (not a website)

I would like to cache a datatable to save time when loading program, I will fill the datatable according to cache.
Here my code:

Imports System.Web.HttpRuntime

dtSynchronize = DirectCast(Cache("dtSynchronize"), DataTable)
If dtSynchronize Is Nothing Then
dtSynchronize = New DataTable

dtSynchronize.Columns.Add("EntryID", System.Type.GetType("System.String"))
dtSynchronize.Columns.Add("SyncData", System.Type.GetType("System.String"))
dtSynchronize.Columns.Add("StoreID", System.Type.GetType("System.String"))

End If
dtSynchronize.Rows.Clear()
dtSynchronize.Rows.Add("1", "2", "3")
Cache.Insert("dtSynchronize", dtSynchronize)

It works fine but when I am closing the application and opening it again, I expect that after the first line of code the dtSynchronize will not be Nothing but it is.
The cache is not saved.

Thank you

Shay Noy

modified on Tuesday, September 8, 2009 5:41 AM

Re: Cache datatable

helelark1237-Sep-09 23:56

7-Sep-09 23:56

I found other solution by storing the datatble in a file and it works fine. Although, if someone has solution for storing it in a cache, please advise
Thank you

Shay Noy

Re: Cache datatable

Ashfield8-Sep-09 1:22

Ashfield

8-Sep-09 1:22

As a cache is only an area of memory it will disappear when your application closes unless you save it to disk or a database

Bob
Ashfield Consultants Ltd
Proud to be a 2009 Code Project MVP

Re: Cache datatable

helelark1238-Sep-09 1:56