Converting Variables

[John MacDonald]

I need to convert a string to a integer. I tryed to use the Val() Function
but the i need the string to be added. The string is "(x+3)^2" where the x
is a part of the for/next statement. And i used a statement like y =
replace(y, "x", x) to replace the x in the tring to a number. But when I use
the Val() function it only grabs the first number. Is there a function or
piece of code that i can use to change the sting to a integer and doing the
math? It would be greatly appreciated.

-Julien

[Trousle Undrhil]

"John MacDonald" <jm****@sympati co.ca> wrote in message
news:4A******** ***********@new s20.bellglobal. com...

I need to convert a string to a integer. I tryed to use the Val() Function
but the i need the string to be added. The string is "(x+3)^2" where the x
is a part of the for/next statement. And i used a statement like y =
replace(y, "x", x) to replace the x in the tring to a number. But when I use the Val() function it only grabs the first number. Is there a function or
piece of code that i can use to change the sting to a integer and doing the math? It would be greatly appreciated.

-Julien

Can you post the exact code snippet for what you are trying to do? It might
help us help you, you know? :)

Ken
un*****@hotmail .nospam.com

[Trousle Undrhil]

"John MacDonald" <jm****@sympati co.ca> wrote in message
news:oH******** ***********@new s20.bellglobal. com...

I understand that no one understands the problem that i am having do to
the explination so I created a small piece of
code that contains my problem. I have attached the program to this message and i have wrote out the program
below if you dont trust downloading files do to the virus going around.

-In Visual Basic 6.0 create a form.
-Add to this form a TextBox a CommandButton and a ListBox
-then add this peace of code to the program

Private Sub Command1_Click( )

y = Text1.Text
For x = 1 To 10
z = Replace(y, "x", x)
List1.AddItem y
OK, this is part one. When you type the assignment statement
'z=Replace(y,"x ",x) that is telling Visual Basic to search the string (y)
for the value "x" and replace it with (x) and then place the resultant
string into (z) ... so change z to z1 and replace the y in the next line
(List1.AddItem y) to z1. That will at least have the Listbox showing the
formula correctly.
'At this point i would like to do the math that is in
'Text1.Text
z = Val(y)
All Val() does is return the numeric portions of a string minus any
extrenuous characters. In this case, Val("(1+3)^2") sees the first
parenthesis and returns the value of 0 since it didn't see any numbers
before that parenthesis. If you remove the parenthesis, it will only return
the value which is before the + symbol, since it doesn't recognize that as a
number. Also, the (y) here should be replaced with (z1) as per the previous
explanation.

In order to do what you are trying to do, you would have to parse the string
yourself and perform any math functions involved. I am not aware of any
functions included with VB which will parse a string and perform the math
for you. I am sure than someone else in this group could tell me if I am
wrong about that ... so let them speak now or forever hold their peace.
'Should state the answer to the above AddItem in List1
List1.AddItem z
Next x

'This is not the program that i am stuck on but this gives
'an example where I run into my problem
'Help Would be appresiated
'Julien
End Sub

-when you run the program input the equation "(x+3)^2"

The problem that I am having is that the number under the equation should be the answer but it keeps telling
me the answer is 0. If someone could help me it will be greatly
appresiated.

Thank you,
Julien

Ken
un*****@hotmail .nospam.com

[Larry Serflaten]

"Trousle Undrhil" <un*****@hotmai l.nospam.com> wrote

In order to do what you are trying to do, you would have to parse the string
yourself and perform any math functions involved. I am not aware of any
functions included with VB which will parse a string and perform the math
for you. I am sure than someone else in this group could tell me if I am
wrong about that ... so let them speak now or forever hold their peace.

Dim Z

With ScriptControl1
.AddCode "X = 3"
.AddCode "Y = 1"
Z = .Eval("(X + Y) ^ 2")
End With

MsgBox Z ' 16
The ScriptControl can parse the string and evaluate the expression.

LFS


-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----

[John MacDonald]

Every time i try to run your piece of code, i get an "Object Required"
error. Is there a file that i need to download to let this piece of code
work?

Thank you so much everyone for your help.
-Julien

"Larry Serflaten" <Ab***@SpamBust ers.com> wrote in message
news:40******** @corp.newsgroup s.com...

"Trousle Undrhil" <un*****@hotmai l.nospam.com> wrote

In order to do what you are trying to do, you would have to parse the string yourself and perform any math functions involved. I am not aware of any functions included with VB which will parse a string and perform the math for you. I am sure than someone else in this group could tell me if I am wrong about that ... so let them speak now or forever hold their

peace.

Dim Z

With ScriptControl1
.AddCode "X = 3"
.AddCode "Y = 1"
Z = .Eval("(X + Y) ^ 2")
End With

MsgBox Z ' 16
The ScriptControl can parse the string and evaluate the expression.

LFS


-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----

[Larry Serflaten]

Larry Serflaten

Every time i try to run your piece of code, i get an "Object Required"
error. Is there a file that i need to download to let this piece of code
work?

The ScriptControl is not in the VB toolbox by default. You have to
add it in from the Project>Compone nts menu (Ctrl-T) dialog. Once
you add the control to the toolbox, you treat it like any other control,
if you want to use it, you have to put one on the form.

LFS


-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----

[Trousle Undrhil]

"Trousle Undrhil" <un*****@hotmai l.nospam.com> wrote in message
news:HZ******** *********@bigne ws5.bellsouth.n et...

"John MacDonald" <jm****@sympati co.ca> wrote in message
news:oH******** ***********@new s20.bellglobal. com...
<< SNIP >>
OK, this is part one. When you type the assignment statement
'z=Replace(y,"x ",x) that is telling Visual Basic to search the string (y)
for the value "x" and replace it with (x) and then place the resultant
string into (z) ... so change z to z1 and replace the y in the next line
(List1.AddItem y) to z1. That will at least have the Listbox showing the
formula correctly.
OK ... with the ScriptControl, this part is still the same.

'At this point i would like to do the math that is in
'Text1.Text
z = Val(y)

All Val() does is return the numeric portions of a string minus any
extrenuous characters. In this case, Val("(1+3)^2") sees the first
parenthesis and returns the value of 0 since it didn't see any numbers
before that parenthesis. If you remove the parenthesis, it will only

return the value which is before the + symbol, since it doesn't recognize that as a number. Also, the (y) here should be replaced with (z1) as per the previous explanation.
Instead of using z = Val(z1), use z = ScriptControl1. Eval(z1). Then
follow-up with the rest of the code to add z to the listbox.
In order to do what you are trying to do, you would have to parse the string yourself and perform any math functions involved. I am not aware of any
functions included with VB which will parse a string and perform the math
for you. I am sure than someone else in this group could tell me if I am
wrong about that ... so let them speak now or forever hold their peace.

This is working now thanks to Larry Serflaten and the idea of using the MS
Script Control! :) :) :)

'Should state the answer to the above AddItem in List1
List1.AddItem z
Next x

'This is not the program that i am stuck on but this gives
'an example where I run into my problem
'Help Would be appresiated
'Julien
End Sub

-when you run the program input the equation "(x+3)^2"

The problem that I am having is that the number under the equation

should

be the answer but it keeps telling
me the answer is 0. If someone could help me it will be greatly
appresiated.

Thank you,
Julien

Ken
un*****@hotmail .nospam.com

[John MacDonald]

Thank you very much my program is working great now. Thank you Larry and
Ken.

-Julien

"Larry Serflaten" <Ab***@SpamBust ers.com> wrote in message
news:40******** @corp.newsgroup s.com...

Larry Serflaten

Every time i try to run your piece of code, i get an "Object Required" error. Is there a file that i need to download to let this piece of code work?

The ScriptControl is not in the VB toolbox by default. You have to
add it in from the Project>Compone nts menu (Ctrl-T) dialog. Once
you add the control to the toolbox, you treat it like any other control,
if you want to use it, you have to put one on the form.

LFS


-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----