Very very simple

[C L Humphreys]

Hi,

I'm used to programming with Java, and am unsure of how this may work within
VB.

I want to pass some strings to a function, and alter them within the
function. I want the strings to stay altered when the function ends
*without returning the strings explicitly*. I think this is to do with
passing references? How should it work (if possible?) using VB?

Thanks in advance,
Chris

[Rob Strover]

Chris,

Paramters in VB are ByRef ('by reference') by default, so what you want to
do will happen automatically.

HTH,

Rob.

"C L Humphreys" <cl*********@to ofgib.moc> wrote in message
news:bk******** **@ucsnew1.ncl. ac.uk...

Hi,

I'm used to programming with Java, and am unsure of how this may work within VB.

I want to pass some strings to a function, and alter them within the
function. I want the strings to stay altered when the function ends
*without returning the strings explicitly*. I think this is to do with
passing references? How should it work (if possible?) using VB?

Thanks in advance,
Chris

[CajunCoiler \(http://www.cajuncoiler.tk\)]

If I remember correctly (and I probably do), you have three choices...

1. Define the variables that you want to retain information as STATIC types.

2. Define the variables that you want to retain information as PUBLIC types
in your general declarations area.

3. Define the variables that you want to retain information as PUBLIC types
in a separate MDI child form.

I personally prefer to use method #2, unless I have one MAJOR padload of
variables, then I switch to the MDI form system.

---------------8<-------------------cut
here------------8<------------------------

"C L Humphreys" <cl*********@to ofgib.moc> wrote in message
news:bk******** **@ucsnew1.ncl. ac.uk...

Hi,

I'm used to programming with Java, and am unsure of how this may work within VB.

I want to pass some strings to a function, and alter them within the
function. I want the strings to stay altered when the function ends
*without returning the strings explicitly*. I think this is to do with
passing references? How should it work (if possible?) using VB?

Thanks in advance,
Chris

[C L Humphreys]

"Rob Strover" <di************ *@NOSPAMyahoo.c om.invalid> wrote in message
news:Ha******** ************@ne ws-server.bigpond. net.au...

Chris,

Paramters in VB are ByRef ('by reference') by default, so what you want to
do will happen automatically.

Thanks, through the interpreter I've realised the problem lies in a replace
statement..

?Replace("Hello ", "lo", "p")
Hello

I'm wanting it to return "Help" - i.e, change the "lo" to "p"... how can I
do this?

Thanks again,
Chris

[Rob Strover]

Chris,

Can't help as I don't have VB6, where this function exists.

The code that MS released to achieve this functionality for VB5 developers
(Q188007: Simulate Visual Basic 6.0 String Functions in VB5) gives the
result you expected, so I guess someone with VB6 will have to answer this
question.

Rob.

"C L Humphreys" <cl*********@to ofgib.moc> wrote in message
news:bk******** **@ucsnew1.ncl. ac.uk...

"Rob Strover" <di************ *@NOSPAMyahoo.c om.invalid> wrote in message
news:Ha******** ************@ne ws-server.bigpond. net.au...

Chris,

Paramters in VB are ByRef ('by reference') by default, so what you want to do will happen automatically.
Thanks, through the interpreter I've realised the problem lies in a

replace statement..

?Replace("Hello ", "lo", "p")
Hello

I'm wanting it to return "Help" - i.e, change the "lo" to "p"... how can I
do this?

Thanks again,
Chris

[C L Humphreys]

"Rob Strover" <di************ *@NOSPAMyahoo.c om.invalid> wrote in message
news:tK******** ************@ne ws-server.bigpond. net.au...

Chris,

Can't help as I don't have VB6, where this function exists.

The code that MS released to achieve this functionality for VB5 developers
(Q188007: Simulate Visual Basic 6.0 String Functions in VB5) gives the
result you expected, so I guess someone with VB6 will have to answer this
question.

Hmm, trying the examples given on that KB article results in errors for me,
I think this may be due to me using VB for access.

FYI the optional parameters are not allowed, and it only works if the string
to search for is a single character long.. odd.

Thanks again,
Chris

[Rob Strover]

Chris,

I've been checking with VBA under Word 97 (rather than VB5 <not on this
PC>), but in the version of the VB5/MSKB Replace version I got rid of the
various optional parameters, so that may be the answer.

BTW, just ran the following amended version in an Access 97 Module OK

HTH

Rob.

-------------------- Code Begins --------

Private Sub AAAA()

MsgBox Replace("Hello" , "llo", "lp") ' ==> Help

End Sub

Private Function Replace(sIn As String, sFind As String, sReplace As String)
As String

Dim nC As Long
Dim nPos As Integer
Dim sOut As String

sOut = sIn
nPos = InStr(sOut, sFind)

If nPos <> 0 Then
Do
nC = nC + 1
sOut = Left$(sOut, nPos - 1) & sReplace & Mid$(sOut, nPos +
Len(sFind))

nPos = InStr(sOut, sFind)
Loop While nPos > 0

End If

Replace = sOut

End Function

-------------------- Code Ends --------

"C L Humphreys" <cl*********@to ofgib.moc> wrote in message
news:bk******** **@ucsnew1.ncl. ac.uk...

"Rob Strover" <di************ *@NOSPAMyahoo.c om.invalid> wrote in message
news:tK******** ************@ne ws-server.bigpond. net.au...

Chris,

Can't help as I don't have VB6, where this function exists.

The code that MS released to achieve this functionality for VB5 developers (Q188007: Simulate Visual Basic 6.0 String Functions in VB5) gives the
result you expected, so I guess someone with VB6 will have to answer this question.
Hmm, trying the examples given on that KB article results in errors for

me, I think this may be due to me using VB for access.

FYI the optional parameters are not allowed, and it only works if the string to search for is a single character long.. odd.

Thanks again,
Chris

[Rick Rothstein]

> > Paramters in VB are ByRef ('by reference') by default, so what you want
to

do will happen automatically.
Thanks, through the interpreter I've realised the problem lies in a

replace statement..

?Replace("Hello ", "lo", "p")
Hello

I'm wanting it to return "Help" - i.e, change the "lo" to "p"... how can I
do this?

Sub ChangeStringTha tIsPassedIn(Str ingIn As String)
StringIn = Replace(StringI n, "lo", "p")
End Sub

You would call this either like this (simplistic, non-realistic example):

MyVariable = "Hello"
Call ChangeStringTha tIsPassedIn(MyV ariable)
MsgBox MyVariable

or like this (using the alternate method of calling a Sub)

MyVariable = "Hello"
ChangeStringTha tIsPassedIn MyVariable
MsgBox MyVariable

Note in this last example, you **must** leave out the parentheses or the Sub
won't do what you expect. The reason, anything non-syntactical in
parentheses is evaluated as an expression. If you wrote this

ChangeStringTha tIsPassedIn (MyVariable)

(note the space in front of the open parenthesis that VB will insert), then
MyVariable would be evaluated as an expression (whose result was nothing
more than its own contents) and the memory location of where VB housed the
evaluated expression, **not** the variable, would be passed into the Sub.

Rick - MVP

Rick - MVP

[J French]

On Wed, 17 Sep 2003 15:48:02 +0100, "C L Humphreys"
<cl*********@to ofgib.moc> wrote:

"Rob Strover" <di************ *@NOSPAMyahoo.c om.invalid> wrote in message
news:Ha******* *************@n ews-server.bigpond. net.au...

Chris,

Paramters in VB are ByRef ('by reference') by default, so what you want to
do will happen automatically.

Thanks, through the interpreter I've realised the problem lies in a replace
statement..

?Replace("Hell o", "lo", "p")
Hello

I'm wanting it to return "Help" - i.e, change the "lo" to "p"... how can I
do this?

It should be doing just that

[C L Humphreys]

"Rick Rothstein" <ri************ @NOSPAMcomcast. net> wrote in message
news:Mo******** ************@co mcast.com...

Paramters in VB are ByRef ('by reference') by default, so what you

want

to do will happen automatically.
Thanks, through the interpreter I've realised the problem lies in a

replace

statement..

?Replace("Hello ", "lo", "p")
Hello

I'm wanting it to return "Help" - i.e, change the "lo" to "p"... how can I do this?

Sub ChangeStringTha tIsPassedIn(Str ingIn As String)
StringIn = Replace(StringI n, "lo", "p")
End Sub

You would call this either like this (simplistic, non-realistic example):

MyVariable = "Hello"
Call ChangeStringTha tIsPassedIn(MyV ariable)
MsgBox MyVariable

or like this (using the alternate method of calling a Sub)

MyVariable = "Hello"
ChangeStringTha tIsPassedIn MyVariable
MsgBox MyVariable

Note in this last example, you **must** leave out the parentheses or the

Sub won't do what you expect. The reason, anything non-syntactical in
parentheses is evaluated as an expression. If you wrote this

ChangeStringTha tIsPassedIn (MyVariable)

(note the space in front of the open parenthesis that VB will insert), then MyVariable would be evaluated as an expression (whose result was nothing
more than its own contents) and the memory location of where VB housed the
evaluated expression, **not** the variable, would be passed into the Sub.

Thanks to all for their help.

Chris