473,320 Members | 2,189 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,320 software developers and data experts.

Bug: string.substring.trim = "" (boolean expression issue)

I have a function that I've tried using in an if then statement and I've
found that no matter how much reworking I do with the code, the expected
result is incorrect.

the code:

If Not (strIn.Substring(410, 10).Trim = "") Then
'Something processed
Else
'Something processed
End If

The string.substring(410,10).trim is equivelent to an emptry string, e.g.
"", when it comes in. So the expected result is supposed to be TRUE when you
use (strIn.Substring(410, 10).Trim = ""), and I use the NOT keyword which
negates the true to a false (or vice versa). I can not get this DAMN
function to give me the proper boolean expression, is this a LOGIC bug...

I've tried using string.substring.trim = space(?) and I've tried
string.substring.trim <> "" and none of these will yield the correct boolean
value in an If...Then context
Nov 21 '05 #1
11 5302
"Darren Anderson" <Da************@discussions.microsoft.com> schrieb:
I have a function that I've tried using in an if then statement and I've
found that no matter how much reworking I do with the code, the expected
result is incorrect.

the code:

If Not (strIn.Substring(410, 10).Trim = "") Then
'Something processed
Else
'Something processed
End If

The string.substring(410,10).trim is equivelent to an emptry string, e.g.
"", when it comes in. So the expected result is supposed to be TRUE when
you
use (strIn.Substring(410, 10).Trim = ""), and I use the NOT keyword which
negates the true to a false (or vice versa). I can not get this DAMN
function to give me the proper boolean expression, is this a LOGIC bug...


Your code works just fine for me. The condition in 'If...Then' is true if
the trimmed string is not empty (zero-length string).

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

Nov 21 '05 #2
Darren,
First "'Select isn't Broken!" :-)

http://www.pragmaticprogrammer.com/p...rule_list.html
Do you have any sample code that demonstrates the perceived problem?

The string.substring(410,10).trim is equivalent to an empty string, e.g.
"", If you assign string.substring(410,10).trim to a variable, what is in the
variable? What is the length of the variable?

Where is strIn coming from? Does it have ChrW(0) characters in it?

ChrW(0) will make the string appear to be "" in the debugger, when its
actually not, as ChrW(0) is a valid string.

If you run the following what do you see?

Dim strIn As String = New String(" "c, 450)

Dim x As String = strIn.Substring(410, 10).Trim()
Debug.WriteLine(x, "x")
Debug.WriteLine(x.Length, "x.length")

Debug.WriteLine(Not (x.Trim() = ""), "not (x.trim = space)")
Debug.WriteLine(x.Trim() <> "", "x.trim <> space")
Debug.WriteLine(x.Trim() = "", "x.trim = space")

Debug.WriteLine(Not (strIn.Substring(410, 10).Trim() = ""), "not
(substring.trim = space)")
Debug.WriteLine(strIn.Substring(410, 10).Trim() <> "",
"substring.trim <> space")
Debug.WriteLine(strIn.Substring(410, 10).Trim() = "",
"substring.trim = space")

What do you see if you use your original string instead of "New String(" "c,
450)" for strIn?

Hope this helps
Jay
"Darren Anderson" <Da************@discussions.microsoft.com> wrote in
message news:96**********************************@microsof t.com...I have a function that I've tried using in an if then statement and I've
found that no matter how much reworking I do with the code, the expected
result is incorrect.

the code:

If Not (strIn.Substring(410, 10).Trim = "") Then
'Something processed
Else
'Something processed
End If

The string.substring(410,10).trim is equivelent to an emptry string, e.g.
"", when it comes in. So the expected result is supposed to be TRUE when
you
use (strIn.Substring(410, 10).Trim = ""), and I use the NOT keyword which
negates the true to a false (or vice versa). I can not get this DAMN
function to give me the proper boolean expression, is this a LOGIC bug...

I've tried using string.substring.trim = space(?) and I've tried
string.substring.trim <> "" and none of these will yield the correct
boolean
value in an If...Then context

Nov 21 '05 #3
"Darren Anderson" <Da************@discussions.microsoft.com> wrote in
message news:96**********************************@microsof t.com...
I have a function that I've tried using in an if then statement and
I've found that no matter how much reworking I do with the code,
the expected result is incorrect.

If Not (strIn.Substring(410, 10).Trim = "") Then


Are you sure the substring contains /exactly/ 10 /spaces/?
Could any of them be Null or other whitespace characters?
Trim() will only remove spaces.

Is strIn /at least/ 419 characters long? VB will get upset if you
try to slice out a substring that's doesn't fit within the source string,
as in

"abc".SubString( 2, 2 ) ' fails

You're /not/ using "On Error Resume Next", /are/ you?

HTH,
Phill W.
Nov 21 '05 #4
Phill,
Are you sure the substring contains /exactly/ 10 /spaces/?
Could any of them be Null or other whitespace characters?
Trim() will only remove spaces. Interesting, according to MSDN String.Trim() will remove whitespace
characters, it suggests it is using Char.IsWhiteSpace to determine what is a
whitespace character!

http://msdn.microsoft.com/library/de...trimtopic1.asp

Testing shows (see below) that String.Trim() works with: ChrW(9), ChrW(10),
ChrW(11), ChrW(12), ChrW(13), ChrW(32), ChrW(12288)

However try any of the following and it fails:
ChrW(133), ChrW(160), ChrW(5760), ChrW(8192), ChrW(8193)
ChrW(8194), ChrW(8195), ChrW(8196), ChrW(8197), ChrW(8198)
ChrW(8199), ChrW(8200), ChrW(8201), ChrW(8202), ChrW(8203)
ChrW(8232), ChrW(8233), ChrW(8239)

According to Char.IsWhiteSpace all of the above are whitespace characters!

ChrW(133) is the "NEL" or Next Line control char. ChrW(160) is a non
breaking space
http://www.unicode.org/charts/PDF/U0080.pdf

CharW(5760) is the Ogham space mark.
http://www.unicode.org/charts/PDF/U1680.pdf

CharW(8192) to ChrW(8239) are various width spaces:
http://www.unicode.org/charts/PDF/U2000.pdf
Sample code I used to test with:

Const format As String = "ChrW({0})"
Dim sb As New StringBuilder
For charCode As Integer = AscW(Char.MinValue) To AscW(Char.MaxValue)
Dim ch As Char = ChrW(charCode)
If Char.IsWhiteSpace(ch) Then
sb.Append(ch)
Debug.WriteLine(String.Format(format, charCode),
"IsWhiteSpace")
End If
Next

Dim str As String = sb.ToString().Trim()
Debug.WriteLine(str, "str")
Debug.WriteLine(str.Length, "str.length")
Debug.WriteLine(Nothing)
For Each ch As Char In str
Dim charCode As Integer = AscW(ch)
Debug.WriteLine(String.Format(format, charCode), "not trimmed")
Next

If you really needed them trimmed a workaround would be to use
String.Trim(Char())

Static whitespace() As Char = {ChrW(&H9), ChrW(&HA), ChrW(&HB), _
ChrW(&HC), ChrW(&HD), ChrW(&H20), ChrW(&H85), ChrW(&HA0), _
ChrW(&H1680), ChrW(&H2000), ChrW(&H2001), ChrW(&H2002), _
ChrW(&H2003), ChrW(&H2004), ChrW(&H2005), ChrW(&H2006), _
ChrW(&H2007), ChrW(&H2008), ChrW(&H2009), ChrW(&H200A), _
ChrW(&H200B), ChrW(&H2028), ChrW(&H2029), ChrW(&H202F), _
ChrW(&H3000)}

Dim str As String = sb.ToString().Trim(whitespace)

Hope this helps
Jay
"Phill. W" <P.A.Ward@o-p-e-n-.-a-c-.-u-k> wrote in message
news:cv**********@yarrow.open.ac.uk... "Darren Anderson" <Da************@discussions.microsoft.com> wrote in
message news:96**********************************@microsof t.com...
I have a function that I've tried using in an if then statement and
I've found that no matter how much reworking I do with the code,
the expected result is incorrect.

If Not (strIn.Substring(410, 10).Trim = "") Then


Are you sure the substring contains /exactly/ 10 /spaces/?
Could any of them be Null or other whitespace characters?
Trim() will only remove spaces.

Is strIn /at least/ 419 characters long? VB will get upset if you
try to slice out a substring that's doesn't fit within the source string,
as in

"abc".SubString( 2, 2 ) ' fails

You're /not/ using "On Error Resume Next", /are/ you?

HTH,
Phill W.

Nov 21 '05 #5


"Jay B. Harlow [MVP - Outlook]" wrote:
Darren,
First "'Select isn't Broken!" :-)

http://www.pragmaticprogrammer.com/p...rule_list.html
[...]
What do you see if you use your original string instead of "New String(" "c,
450)" for strIn?

Hope this helps
Jay

"Jay B. Harlow [MVP - Outlook]" wrote:
Darren,
First "'Select isn't Broken!" :-)

http://www.pragmaticprogrammer.com/p...rule_list.html

[...]

Hope this helps
Jay


Jay,
Thanks it did help!

After going through and debugging it and looking at the actual characters
within the string, I found that TRIM wasn't eliminating chr(0) from the
string. I find it extremely frustrating that something simple like removal
of an unused character is so hard... SO I wrote a real 'TRIM' function.
I'll probably modify it more over time, but I'm in the middle of a project;
again thanks.
-------------------------------
'Use this function to remove chr(0) and chr(32) at beginning and end of string
' Function takes 1 input of string type and outputs string type, without
excessive characters
Public Function CleanUpString(ByVal strIn As String) As String
Dim nStartPos As Integer, nEndPos As Integer 'For finding beginning and
end of string
Dim nLen As Integer 'Length of string

CleanUpString = vbNullString 'Start with an empty string

If strIn.Length = 0 Then Exit Function 'Dummy check

nStartPos = 0 'Starting position is at the beginning of the string

'Find the actual beginning of the string
Do Until (Not strIn.ToCharArray(nStartPos, 1) = Chr(0) And Not
strIn.ToCharArray(nStartPos, 1) = Chr(32))
nStartPos += 1 'iterate forward
If nStartPos >= Len(strIn) Then Exit Do 'Exit if the whole string is
chr(0) or chr(32)
Loop

If (nStartPos >= Len(strIn)) Then Exit Function 'If the whole string is
nothing but chr(0) and chr(32) then return "" (a 'real' empty string)

nEndPos = (Len(strIn) - 1) 'Set the ending position at the end of string

'Find the actual end of the string
Do Until (Not strIn.ToCharArray(nEndPos, 1) = Chr(0) And Not
strIn.ToCharArray(nEndPos, 1) = Chr(32))
nEndPos -= 1 'iterate backward
If nEndPos <= 0 Then Exit Do
Loop

nLen = Len(strIn) - (((Len(strIn) - 1) - nEndPos) + nStartPos) 'Get the
length of important characters in the string

CleanUpString = strIn.Substring(nStartPos, nLen) 'Get the "important"
string for output

End Function
-------------------------------------

Darren

Nov 21 '05 #6
Darren,
Here's a simplified version of your function:

' Use this function to remove chr(0) and chr(32) at beginning and end of
string
' Function takes 1 input of string type and outputs string type, without
' excessive characters
Public Function CleanUpString(ByVal strIn As String) As String
Return strIn.Trim(ChrW(0), ChrW(32))
End Function
Also you can index into the string rather then converting it to a CharArray.
Do While (strIn.Chars(nStartPos) = Chr(0) OrElse strIn.Chars(nStartPos)
= Chr(32))
Calling ToCharArray, twice, during each iteraction of the loop, in both
loops, may cause excessive strain on the Garbage Collector. As you are
creating a number of temporary arrays...

Note I find positive logic to be more readable then negative logic, hence I
"flipped" your condition.
Hope this helps
Jay

"Darren Anderson" <Da************@discussions.microsoft.com> wrote in
message news:2B**********************************@microsof t.com...

"Jay B. Harlow [MVP - Outlook]" wrote:
Darren,
First "'Select isn't Broken!" :-)

http://www.pragmaticprogrammer.com/p...rule_list.html

[...]

What do you see if you use your original string instead of "New String("
"c,
450)" for strIn?

Hope this helps
Jay


"Jay B. Harlow [MVP - Outlook]" wrote:
Darren,
First "'Select isn't Broken!" :-)

http://www.pragmaticprogrammer.com/p...rule_list.html

[...]

Hope this helps
Jay


Jay,
Thanks it did help!

After going through and debugging it and looking at the actual characters
within the string, I found that TRIM wasn't eliminating chr(0) from the
string. I find it extremely frustrating that something simple like
removal
of an unused character is so hard... SO I wrote a real 'TRIM' function.
I'll probably modify it more over time, but I'm in the middle of a
project;
again thanks.
-------------------------------
'Use this function to remove chr(0) and chr(32) at beginning and end of
string
' Function takes 1 input of string type and outputs string type, without
excessive characters
Public Function CleanUpString(ByVal strIn As String) As String
Dim nStartPos As Integer, nEndPos As Integer 'For finding beginning and
end of string
Dim nLen As Integer 'Length of string

CleanUpString = vbNullString 'Start with an empty string

If strIn.Length = 0 Then Exit Function 'Dummy check

nStartPos = 0 'Starting position is at the beginning of the string

'Find the actual beginning of the string
Do Until (Not strIn.ToCharArray(nStartPos, 1) = Chr(0) And Not
strIn.ToCharArray(nStartPos, 1) = Chr(32))
nStartPos += 1 'iterate forward
If nStartPos >= Len(strIn) Then Exit Do 'Exit if the whole string
is
chr(0) or chr(32)
Loop

If (nStartPos >= Len(strIn)) Then Exit Function 'If the whole string is
nothing but chr(0) and chr(32) then return "" (a 'real' empty string)

nEndPos = (Len(strIn) - 1) 'Set the ending position at the end of
string

'Find the actual end of the string
Do Until (Not strIn.ToCharArray(nEndPos, 1) = Chr(0) And Not
strIn.ToCharArray(nEndPos, 1) = Chr(32))
nEndPos -= 1 'iterate backward
If nEndPos <= 0 Then Exit Do
Loop

nLen = Len(strIn) - (((Len(strIn) - 1) - nEndPos) + nStartPos) 'Get the
length of important characters in the string

CleanUpString = strIn.Substring(nStartPos, nLen) 'Get the "important"
string for output

End Function
-------------------------------------

Darren

Nov 21 '05 #7
Darren,

"Darren Anderson" <Da************@discussions.microsoft.com> schrieb:
After going through and debugging it and looking at the actual characters
within the string, I found that TRIM wasn't eliminating chr(0) from the
string. I find it extremely frustrating that something simple like
removal
of an unused character is so hard... SO I wrote a real 'TRIM' function.
I'll probably modify it more over time, but I'm in the middle of a
project;
again thanks.
-------------------------------
'Use this function to remove chr(0) and chr(32) at beginning and end of
string
' Function takes 1 input of string type and outputs string type, without
excessive characters


Notice that 'Trim' is overloaded:

\\\
Dim t As String = _
s.Trim(New Char() {ControlChars.NullChar, ChrW(&H5)})
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

Nov 21 '05 #8
Herfried,
ChrW(&H5)?

Wouldn't that be either ChrW(32) or ChrW(&H20)?

:-)

Jay

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:%2****************@TK2MSFTNGP09.phx.gbl...
Darren,

"Darren Anderson" <Da************@discussions.microsoft.com> schrieb:
After going through and debugging it and looking at the actual characters
within the string, I found that TRIM wasn't eliminating chr(0) from the
string. I find it extremely frustrating that something simple like
removal
of an unused character is so hard... SO I wrote a real 'TRIM' function.
I'll probably modify it more over time, but I'm in the middle of a
project;
again thanks.
-------------------------------
'Use this function to remove chr(0) and chr(32) at beginning and end of
string
' Function takes 1 input of string type and outputs string type, without
excessive characters


Notice that 'Trim' is overloaded:

\\\
Dim t As String = _
s.Trim(New Char() {ControlChars.NullChar, ChrW(&H5)})
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

Nov 21 '05 #9
Jay,

"Jay B. Harlow [MVP - Outlook]" <Ja************@msn.com> schrieb:
ChrW(&H5)?

Wouldn't that be either ChrW(32) or ChrW(&H20)?

:-)


Ooops... :-).

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>
Nov 21 '05 #10
"Jay B. Harlow [MVP - Outlook]" <Ja************@msn.com> wrote in message
news:er*************@TK2MSFTNGP15.phx.gbl...
.. . .
Trim() will only remove spaces. Interesting, according to MSDN String.Trim() will remove whitespace
characters, it suggests it is using Char.IsWhiteSpace to determine what is

a whitespace character!


Dang! Our Friends in Redmond snuck /another/ one past me ...

Ah well; not the first time; won't be the last ;-)

Regards,
Phill W.
Nov 21 '05 #11

"Darren Anderson" <Da************@discussions.microsoft.com> wrote in
message news:96**********************************@microsof t.com...
: I have a function that I've tried using in an if then statement and
I've
: found that no matter how much reworking I do with the code, the
expected
: result is incorrect.
:
: the code:
:
: If Not (strIn.Substring(410, 10).Trim = "") Then
: 'Something processed
: Else
: 'Something processed
: End If
:
: The string.substring(410,10).trim is equivelent to an emptry string,
e.g.
: "", when it comes in. So the expected result is supposed to be TRUE
when you
: use (strIn.Substring(410, 10).Trim = ""), and I use the NOT keyword
which
: negates the true to a false (or vice versa). I can not get this DAMN
: function to give me the proper boolean expression, is this a LOGIC
bug...
:
: I've tried using string.substring.trim = space(?) and I've tried
: string.substring.trim <> "" and none of these will yield the correct
boolean
: value in an If...Then context
I don't know if this is what you are looking for, but an old vb trick
for testing for empty strings was to test the length (its faster as
opposed to testing the contents two strings). Try this...

If Not (strIn.Substring(410, 10).Trim.Length = 0) Then
DoThis
Else
DoThat
End If

Ralf
Nov 21 '05 #12

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

0
by: turar | last post by:
Hi, I wonder if anyone knows of a free Bug/Issue/Trouble-ticket tracking ASP application. Thanks...
9
by: Stefan Mueller | last post by:
I'd like to set a variable called 'FocusIsOn' if a button got the focus. Because my button is dynamically created I do it like xelement = document.createElement("input") xelement.type = "button"...
32
by: Indrid Colt | last post by:
Thank's for your help ! Indrid
9
by: rsine | last post by:
I have developed a program that sends a command through the serial port to our business system and then reads from the buffer looking for a number. Everything worked great on my WinXP system, but...
3
by: hazz | last post by:
I get an InvalidCastException "Cast from string "6<5" to type 'Boolean is not valid. for If (CInt(objBuyInfo.Budget) & " " & arrRuleList(i).operator & " " &...
4
by: dc15 | last post by:
For an intro to VB project I have to write a program which takes an amount of Miles, Yards, and Inches.....and converts it to metric (KM, M, and CM) when all values are entered to the input text...
4
by: Wilson | last post by:
Hello, How can i eval a string expression like String abc = ??"dt.Rows.Columns.ToString() + dt.Rows.Columns.ToString()" Thanks Wilson
2
by: parul.prasad | last post by:
How can we evaluate a string expression in if statement Linux C/C++
4
by: moogyd | last post by:
Hi, (Off-topic) I am looking to put an open-source bug/issue tracking system in place for our current project (eventually expanded for all projects), and would appreciate any...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
0
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
0
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.