How to convert a string to integer

[gkumar]

How to convert a string to integer, For example If i have,
Dim strValue as string
strValue = "100"

 

[rbsoft]

Dim strValue as string
Dim valString as int

strValue = "100"
valString = strValue

Rolf

 

[stefanobusetto]

if you want to trap conversion errors

Try
valString = strValue
Catch
MsgBox ( "the string is not a valid integer" , "error" )
End Try

 

[specci48]

Or a little bit more elegant:

If IsNumber(strValue) = True Then
    valString = strValue
Else
    Msgbox ( "the string is not a valid integer" , "error" )
End If

specci48

 

[Jost aus Soest]

I like to use these VB-like functions:

Sub CStr(o As Object) As String
 Return "" & o
End Sub

Sub CInt(o As Object) As Int
  Return Floor(o)
End Sub

Sub CLng(o As Object) As Long
  Return Floor(o)
End Sub

 

[rbsoft]

These will be nice for Margret's collection.

Rolf

 

[Mahares]

If you know the content of a string is a number, there is no need to convert it to an integer or float if you are going to use it in calculations.
Am I missing something.? See below code:

Dim strValue As String
Dim Result As Float
strValue = "100"
Result=Sqrt(strValue)
Msgbox("The square root of " & strValue & " is " &  Result,"")

 

[Aysic4Bandroid]

@Jost aus Soest :
Elegant, simplicity, Nice, i use these from now on

 

[Jost aus Soest]

@Jost aus Soest :
Elegant, simplicity, Nice, i use these from now on

Oh oh - thank you!

You're welcome!

 

[NeverGiveUp2]

Can i use your function in my library

Hello Jost,

can i use your simple function in my library.

I am from Germany too.

:sign0060:

 

[RichardBernard]

If you know the content of a string is a number, there is no need to convert it to an integer or float if you are going to use it in calculations.
Am I missing something.? See below code:

Dim strValue As String
Dim Result As Float
strValue = "100"
Result=Sqrt(strValue)
Msgbox("The square root of " & strValue & " is " &  Result,"")

Hi,

I'm using:

   Dim Waiting_Time As EditText
   Dim Waiting_Time_Int As Int
   Dim tmpString As String
----------------------------
tmpString = Waiting_Time.Text
Waiting_Time_Int = tmpString + 1
tmpString = Waiting_Time_Int
Waiting_Time.Text = tmpString

I tried many different ways of implementing the above code but I keep on getting the error:

java.lang.NumberFormatException: Invalid double: ""
Installing file.
PackageAdded: package:ce3.arsham.CE3RVCtrl
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
main_tmr1_tick (B4A line: 195)
Waiting_Time_Int = tmpString + 1
java.lang.NumberFormatException: Invalid double: ""
   at java.lang.StringToReal.invalidReal(StringToReal.java:63)
   at java.lang.StringToReal.parseDouble(StringToReal.java:248)
   at java.lang.Double.parseDouble(Double.java:295)
   at ce3.arsham.CE3RVCtrl.main._tmr1_tick(main.java:789)
   at java.lang.reflect.Method.invokeNative(Native Method)
   at java.lang.reflect.Method.invoke(Method.java:511)
   at anywheresoftware.b4a.BA.raiseEvent2(BA.java:169)
   at anywheresoftware.b4a.objects.Timer$TickTack.run(Timer.java:105)
   at android.os.Handler.handleCallback(Handler.java:725)
   at android.os.Handler.dispatchMessage(Handler.java:92)
   at android.os.Looper.loop(Looper.java:137)
   at android.app.ActivityThread.main(ActivityThread.java:5039)
   at java.lang.reflect.Method.invokeNative(Native Method)
   at java.lang.reflect.Method.invoke(Method.java:511)
   at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:793)
   at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:560)
   at dalvik.system.NativeStart.main(Native Method)

Can anyone please help me find out what's going on?

Thanks,
R

 

[stevel05]

You should just be able to do

Waiting_Time.Text=Waiting_Time.Text+1

If Wating_Time.Text is a number. Try:

If IsNumber(Waiting_Time.Text) then
    Waiting_Time.Text=Waiting_Time.Text+1
Else
    Log(Waiting_Time.Text &" is not a number")
End If

 

[RichardBernard]

Thanks for the hint Steve! I found the problem was the object was not initialized.

One more question, how do I get rid of the decimal that is added after the assignment (i.e "0"+1="1.0") ?

R

 

[stevel05]

Have a look at numberformat and numberformat2.

-------------------
Sent via Tapatalk

 

[RichardBernard]

Sweet!