The CompTIA Cloud+ Basic training course will teach you about cloud concepts and models, data storage, networking, and network infrastructure.
test for additional space
I would like to test two strings to see if a space has been added.
str1 "100S LWB CH5S"
str2 "100 S LWB CH5S"
The string is essentially the same text but only had a space added at some part.
Is that possible to test for
ie determine if space added and if added add the space temporarily to str1 and then do a compare to make sure they are equal strings?
str1 "100S LWB CH5S"
str2 "100 S LWB CH5S"
The string is essentially the same text but only had a space added at some part.
Is that possible to test for
ie determine if space added and if added add the space temporarily to str1 and then do a compare to make sure they are equal strings?
Who is Participating?
Well, you can use StrComp to see if the are equal or note:
example:
strcomp("100S LWB CH5S","100 S LWB CH5S")
returns 1 because they are not equal
StrComp returns :
string1 is less than string2 -1
string1 is equal to string2 0
string1 is greater than string2 1
string1 or string2 is Null Null
mx
example:
strcomp("100S LWB CH5S","100 S LWB CH5S")
returns 1 because they are not equal
StrComp returns :
string1 is less than string2 -1
string1 is equal to string2 0
string1 is greater than string2 1
string1 or string2 is Null Null
mx
and is it easy to find where the space belongs in field 1?
i am thinking maybe checking each character until they dont match and at that point string2(position string1 +1) should be a space and if it is then add a space at string1(position)
i am thinking maybe checking each character until they dont match and at that point string2(position string1 +1) should be a space and if it is then add a space at string1(position)
or another thought find current space positions in string2
string 1 positions should correspond to string 2 bar 1 and thats my insertion point on string 1
string 1 positions should correspond to string 2 bar 1 and thats my insertion point on string 1
"or another thought find current space positions in string2"
You can use the InStr() function to find the first occurrence of a Space (or any character)
InStr(1,SearchString, SearchingFor) returns the first position fo Searching For
InStr(1,"100 S LWB CH5S", " ") returns 4
mx
You can use the InStr() function to find the first occurrence of a Space (or any character)
InStr(1,SearchString, SearchingFor) returns the first position fo Searching For
InStr(1,"100 S LWB CH5S", " ") returns 4
mx
I would use Trim() in your compare. That would get rid of unnecessary spaces.
If trim(fielda) = Trim(fieldb) then...
If trim(fielda) = Trim(fieldb) then...
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
All Courses
From novice to tech pro — start learning today.
Function MakeEqualStr(Str1 As String, Str2 As String) As String
Dim Pntr As Integer
Dim MaxPntr As Integer
Pntr = 1
MaxPntr = IIf(Len(Str1) < Len(Str2), Len(Str1), Len(Str2))
Do While StrComp(Str1, Str2) <> 0
Select Case StrComp(Left$(Str1, Pntr), Left$(Str2, Pntr))
Case -1
Str2 = Left$(Str1, Pntr) & Mid$(Str2, Pntr)
Case 1
Str1 = Left$(Str2, Pntr) & Mid$(Str1, Pntr)
Case 0
Pntr = Pntr + 1
If Pntr > MaxPntr Then Exit Do
End Select
Loop
MakeEqualStr = Str1
End Function
Create -> Module and copy/paste the function into a module.
J.