Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!
COURSE of the MONTH
9 days, 17 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
test for additional space
Posted on 2011-03-08
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?
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
3
2
2- +1
8 Comments
Active 1 day ago
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
Active 4 days ago
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)
Active 4 days ago
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
Active 1 day ago
"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
You may wish to try this function:
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.
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.
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...
Featured Post
Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
It’s the first day of March, the weather is starting to warm up and the excitement of the upcoming St. Patrick’s Day holiday can be felt throughout the world.
In earlier versions of Windows (XP and before), you could drag a database to the taskbar, where it would appear as a taskbar icon to open that database. This article shows how to recreate this functionality in Windows 7 through 10.
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page.
The problem with sub-reports and headings:
Add a dummy group to the sub report using the expression =1:
Set the “Repeat Section” property of the dummy…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…
Suggested Courses
Course of the Month9 days, 17 hours left to enroll
762 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.