Concatenation function

[paranoia1001001]

Please correct my memory if I am wrong, but wasn't there a concatenate() or concat() function in QBasic? I've been unable to find any information on the QB64 Wiki about any such function in QB64 or QBasic. Am I just remembering another language from long ago?

[SpriggsySpriggs]

You must be remembering a different language. Concatenation is done simply using the "+" operator.

For instance

Code: QB64: [Select]

1. Print "This " + "is " + "my " + "string"

[paranoia1001001]

You must be remembering a different language. Concatenation is done simply using the "+" operator.

For instance

Code: QB64: [Select]

1. Print "This " + "is " + "my " + "string"

Thank you very much for that confirmation of officially getting old enough to forget something as basic as BASIC. I feel like I've even used it in VBA within Excel, so maybe it just exists in VBA/VB.

If you'll indulge me a moment longer, from what I read from the WIki about concatenation using the "+" operator, it works on string literals, but makes no mention of string variables. Do you happen to know if it works for them as well? Thank you for any information you have. I would simply do a test to find out, but as you know my install isn't working at the moment. I am heading over now to read your response to that post. Thank you, again, and, in advance!

[SpriggsySpriggs]

@paranoia1001001

Yes, you can use the "+" with string variables.
From the Wiki page on STRING:

Concatenation uses the + addition symbol to add literal or variable parts to a string variable value.

[luke]

It works on string expressions, which includes string literals, string variables, and functions that return strings (e.g. CHR$(13) + CHR$(10)).

[paranoia1001001]

@paranoia1001001

Yes, you can use the "+" with string variables.
From the Wiki page on STRING:

Excellent. Thank you very much!

[paranoia1001001]

It works on string expressions, which includes string literals, string variables, and functions that return strings (e.g. CHR$(13) + CHR$(10)).

Very helpful information. Your help is kindly appreciated. I obviously need to start reading more carefully, or not at 3 am.

[xra7en]

Please correct my memory if I am wrong, but wasn't there a concatenate() or concat() function in QBasic? I've been unable to find any information on the QB64 Wiki about any such function in QB64 or QBasic. Am I just remembering another language from long ago?

prob javascript

Code: Javascript: [Select]

1. var str1 = "I Love";
2. var str2 = "QB64!";
3. var res = str1.concat(str2);

[bplus]

At moment, I can't think of any other way to Concatenate strings in QB64?

What am I missing?

[FellippeHeitor]

If you wanna go fancy, cryptic and do unnecessary work, there's MID$:

Code: QB64: [Select]

1. a$ = "Hello, "
2. b$ = "World!"
3. result$ = concat$(a$, b$)
4. Print result$
5.  
6. Function concat$ (str1$, str2$)
7.     Dim temp$
8.     temp$ = Space$(Len(str1$) + Len(str2$))
9.     Mid$(temp$, 1) = str1$
10.     Mid$(temp$, Len(str1$) + 1) = str2$
11.     concat$ = temp$
12. End Function

[bplus]

You beat me! same exact thing!

Here is one I just invented:

Code: QB64: [Select]

1. Print concatenate$("Test", " this.")
2. Function concatenate$ (a$, b$)
3.     c$ = Space$(Len(a$) + Len(b$))
4.     Mid$(c$, 1, Len(a$)) = a$
5.     Mid$(c$, Len(a$) + 1, Len(b$)) = b$
6.     concatenate$ = c$
7. End Function
8.  

All +'s used in the creation of this Function are for numeric adding and not concatenation.

[paranoia1001001]

There are obviously some smart people here. OK, if you want a challenge the function (from whatever language it came, thinking VB right now but not sure) was able to take any number of strings as arguments and concatenate them, similar to our very simple tacking on of "+"'s ad infinitum. Have at it!

[SpriggsySpriggs]

Code: QB64: [Select]

1. Option _Explicit
2.  
3. Dim As String testarray(1 To 3)
4.  
5. testarray(1) = "This is"
6. testarray(2) = " a "
7. testarray(3) = "test"
8.  
9. Print concat(testarray())
10.  
11. Function concat$ (stringarray() As String)
12.     Dim As _Unsigned Long x
13.     Dim As String concatenated
14.     For x = LBound(stringarray) To UBound(stringarray)
15.         concatenated = concatenated + stringarray(x)
16.     Next
17.     concat = concatenated
18. End Function

[bplus]

Code: QB64: [Select]

1. Option _Explicit
2.  
3. Dim As String testarray(1 To 3)
4.  
5. testarray(1) = "This is"
6. testarray(2) = " a "
7. testarray(3) = "test"
8.  
9. Print concat(testarray())
10.  
11. Function concat$ (stringarray() As String)
12.     Dim As _Unsigned Long x
13.     Dim As String concatenated
14.     For x = LBound(stringarray) To UBound(stringarray)
15.         concatenated = concatenated + stringarray(x)
16.     Next
17.     concat = concatenated
18. End Function

Hey @SpriggsySpriggs what are you doing in line 15 of your code?  ;-))

You should consider your overload example.

[SpriggsySpriggs]

@bplus Nah.