get a value from the registry and concatenate with other strings

Hi,

I try to retrieve the path of my java interpreter from the window registry and then concatenate this path with some other strings so as to run my java program. I always loss the second part of my string. This is my code:

' get the path from registry
Dim javaBuffer as String

javaBuffer = GetStringValue("HKEY_LOCAL_MACHINE\Software\JavaSoft\Java Runtime Environment\1.2", "JavaHome")

javaBuffer = Trim(javaBuffer)
tempvar = javaBuffer + "\bin\java -classpath..."

'run my java program
Shell tempvar (+ some other arguments)

I notice that tempvar does not contain "\bin\java..." at all even if I do the simple string concatenation as shown in the code above. The value obtained from the registy, though, is correct. Any ideas?

maria.

use

tempvar = javaBuffer & "\bin\java -classpath.."

Instead of...
tempvar = javaBuffer + "\bin\java -classpath.."

Hi,

I try your suggestion but it doesn't seem to work. Any more ideas?

Also, I found something weird happening:
if I do:
Dim tempvar as String
tempvar = javaBuffer + "\bin\java" 'it doesn't concatenate

but if I do:
Dim tempvar as String
tempvar = "\bin\java..." + javaBuffer ' it does concatenate

I also try the above code using '&' instead. Same results found.

maria.

Shoud work with both + and & but you should use & to avoid numeric addition

What errors do you get? Do you get the correct definitions of both javabuffer and tempvar?

Hi again,

javaBuffer and tempvar are both declared as Strings and javaBuffer seems to have the right value. Please help.

I also used '&'

maria.

Hmm, this is getting hard without knowing any code, could you explain what's wrong then? or could you provide more code since what you showed, seems to work correctly

hi again,
this is all of my code:

Sub SaveAsHtml()
'
' SaveAsHtml Macro
' Macro recorded 7/5/00 by mtsang
'
Dim pathBuffer As String
Dim javaBuffer As String

Randomize
Filename = "c:\temp\RBHTML_" + CStr(Math.Round(Math.Rnd * 10000000000#, 0)) + ".htm"

If Application.Name = "Microsoft Word" Then
ActiveDocument.SaveAs Filename, FileFormat:=wdFormatHTML, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False

ElseIf Application.Name = "Microsoft Excel" Then
ActiveWorkbook.SaveAs Filename, FileFormat:=xlHtml, _
ReadOnlyRecommended:=False, CreateBackup:=False

ElseIf Application.Name = "Microsoft PowerPoint" Then
ActivePresentation.SaveAs Filename, FileFormat:=ppSaveAsHTML, EmbedTrueTypeFonts:=msoFalse

Else
MsgBox "Unrecognized Office Application: " + Application.Name
End If

' the value represents the path of the client.properties file
pathBuffer = GetStringValue("HKEY_LOCAL_MACHINE\Software\relBUILDER", "propertiesFile")
pathBuffer = Trim(pathBuffer)

' debug
MsgBox "pathBuffer: " + pathBuffer

' the value represents the path of the java interpreter
javaBuffer = GetStringValue("HKEY_LOCAL_MACHINE\Software\JavaSoft\Java Runtime Environment\1.2", "JavaHome")
javaBuffer = Trim(javaBuffer)

'debug
MsgBox "javaBuffer: " + javaBuffer

'''''''''''''''''''''''''''''''''''''''''''''''''
' CAN'T CONCATENATE 2 STRINGS!!!
var3 = "\bin\java -classpath c:\jars\relbuilder.jar;c:\jars\relbuilder_be.jar;c:\development\relbuilder\officeintegration\classes com.deltacap.relbuilder.client.plugin.Office2000Plugin

'var4 = javaBuffer & var3 'this doesn't works!!
' var4 = var3 + javaBuffer 'this works

'Shell javaBuffer + var3 + Filename + " " + pathBuffer, vbNormalFocus


End Sub

I got a "file not found" error when I run the shell command because it is ignoring "var3 + Filename...."

maria.