Val Grind (the wrong kind)
-
From some legacy VB6 code I'm in the process of making redundant...
Private Sub Command7_Click()
Dim PolNumb As LongIf Val("" & txtOpenPolicyNo) > 0 Then PolNumb = Val("" & txtOpenPolicyNo) Else PolNumb = Val("" & InputBox("Policy ID ")) If Val("" & PolNumb) > 0 Then PolNumb = GetPolicyNumberfromID(PolNumb) End If End If If Val("" & PolNumb) > 0 Then FindPolicy GetPolicyIDfromNumber(PolNumb) End IfEnd Sub
I particularly like the lines...
If Val("" & PolNumb) > 0 Then
which effectively convert a number to a string, prepend an empty string, then convert it back again... just for good measure.
At my current job we've got a lot of legacy code like that. Just put + "" to the end of every object you can imagine. It will effectively convert the object which you already had to a string and from there you can convert it back to whatever you want (but Val() is indeed very popular!). My company even had its own Val() function which returned 0 if an Exception was thrown :laugh:
It's an OO world.
public class Naerling : Lazy<Person>{
public void DoWork(){ throw new NotImplementedException(); }
} -
At my current job we've got a lot of legacy code like that. Just put + "" to the end of every object you can imagine. It will effectively convert the object which you already had to a string and from there you can convert it back to whatever you want (but Val() is indeed very popular!). My company even had its own Val() function which returned 0 if an Exception was thrown :laugh:
It's an OO world.
public class Naerling : Lazy<Person>{
public void DoWork(){ throw new NotImplementedException(); }
}I've seen plenty of those "safe cast" functions.
Panic, Chaos, Destruction. My work here is done. Drink. Get drunk. Fall over - P O'H OK, I will win to day or my name isn't Ethel Crudacre! - DD Ethel Crudacre I cannot live by bread alone. Bacon and ketchup are needed as well. - Trollslayer Have a bit more patience with newbies. Of course some of them act dumb - they're often *students*, for heaven's sake - Terry Pratchett
-
From some legacy VB6 code I'm in the process of making redundant...
Private Sub Command7_Click()
Dim PolNumb As LongIf Val("" & txtOpenPolicyNo) > 0 Then PolNumb = Val("" & txtOpenPolicyNo) Else PolNumb = Val("" & InputBox("Policy ID ")) If Val("" & PolNumb) > 0 Then PolNumb = GetPolicyNumberfromID(PolNumb) End If End If If Val("" & PolNumb) > 0 Then FindPolicy GetPolicyIDfromNumber(PolNumb) End IfEnd Sub
I particularly like the lines...
If Val("" & PolNumb) > 0 Then
which effectively convert a number to a string, prepend an empty string, then convert it back again... just for good measure.
That is a programmer's trick to handle null values - it converts a null value to an empty string, which then evaluates to zero. The use of the ampersand (&) makes this work - if the plus sign (+) is used to concatenate, an invalid use of null error will be thrown, as any variable concatenated using + will be nulled if any of the concatenated values are null It is equivalent to using functions such as IsNull, NZ etc
==================================== Transvestites - Roberts in Disguise! ====================================
-
From some legacy VB6 code I'm in the process of making redundant...
Private Sub Command7_Click()
Dim PolNumb As LongIf Val("" & txtOpenPolicyNo) > 0 Then PolNumb = Val("" & txtOpenPolicyNo) Else PolNumb = Val("" & InputBox("Policy ID ")) If Val("" & PolNumb) > 0 Then PolNumb = GetPolicyNumberfromID(PolNumb) End If End If If Val("" & PolNumb) > 0 Then FindPolicy GetPolicyIDfromNumber(PolNumb) End IfEnd Sub
I particularly like the lines...
If Val("" & PolNumb) > 0 Then
which effectively convert a number to a string, prepend an empty string, then convert it back again... just for good measure.
From some legacy VB6 code I'm in the process of making redundant... Thanks seobook
-
That is a programmer's trick to handle null values - it converts a null value to an empty string, which then evaluates to zero. The use of the ampersand (&) makes this work - if the plus sign (+) is used to concatenate, an invalid use of null error will be thrown, as any variable concatenated using + will be nulled if any of the concatenated values are null It is equivalent to using functions such as IsNull, NZ etc
==================================== Transvestites - Roberts in Disguise! ====================================
I realize that, but that still doesn't excuse conceding from a long to a string, then back to a long again. That's just sloppy coding. Regardless, it's an appalling way to do the conversion.
-
I realize that, but that still doesn't excuse conceding from a long to a string, then back to a long again. That's just sloppy coding. Regardless, it's an appalling way to do the conversion.
It's not pretty, admittedly, but VB6 did not include the NZ function that later versions of VBA had. The alternative would be to create an NZ function and use that e.g.
Function Nz(ByVal V As Variant, Optional ByVal ValueIfNull As Variant) As Variant
If Not IsNull(V) Then
Nz = V
Else
If IsMissing(ValueIfNull) Then
If VarType(V) = vbString Then
Nz = ""
Else
Nz = 0
End If
Else
Nz = ValueIfNull
End If
End If
End Function==================================== Transvestites - Roberts in Disguise! ====================================
-
It's not pretty, admittedly, but VB6 did not include the NZ function that later versions of VBA had. The alternative would be to create an NZ function and use that e.g.
Function Nz(ByVal V As Variant, Optional ByVal ValueIfNull As Variant) As Variant
If Not IsNull(V) Then
Nz = V
Else
If IsMissing(ValueIfNull) Then
If VarType(V) = vbString Then
Nz = ""
Else
Nz = 0
End If
Else
Nz = ValueIfNull
End If
End If
End Function==================================== Transvestites - Roberts in Disguise! ====================================
You've missed the point again. I know exactly what the trick is doing. I'll spell it out slowly... 1. The first line declares
PolNumb As Long.2. Consequently, we knowPolNumbis always a number. 3. The lineIf Val("" & PolNumb) > 0 Theneffectively convertsPolNumbto a string and appends it to an empty string, simply to convert it back to a number usingVal, and finally checks if the result is greater than 0. That line could be replaced withIf PolNumb > 0 Thenand be more efficient and more correct (as conceivablyPolNumbcould be zero). The issue is not the use of the Val("" & variant) trick, but the misuse of it applied to something we already know to be a number. -
I've seen plenty of those "safe cast" functions.
Panic, Chaos, Destruction. My work here is done. Drink. Get drunk. Fall over - P O'H OK, I will win to day or my name isn't Ethel Crudacre! - DD Ethel Crudacre I cannot live by bread alone. Bacon and ketchup are needed as well. - Trollslayer Have a bit more patience with newbies. Of course some of them act dumb - they're often *students*, for heaven's sake - Terry Pratchett
Often those functions easily, if not totally safely, help a developer out of the mire that is VB6.
-
Often those functions easily, if not totally safely, help a developer out of the mire that is VB6.
... and that, dear friend, is where I've seen them. ;P
Panic, Chaos, Destruction. My work here is done. Drink. Get drunk. Fall over - P O'H OK, I will win to day or my name isn't Ethel Crudacre! - DD Ethel Crudacre I cannot live by bread alone. Bacon and ketchup are needed as well. - Trollslayer Have a bit more patience with newbies. Of course some of them act dumb - they're often *students*, for heaven's sake - Terry Pratchett
-
From some legacy VB6 code I'm in the process of making redundant...
Private Sub Command7_Click()
Dim PolNumb As LongIf Val("" & txtOpenPolicyNo) > 0 Then PolNumb = Val("" & txtOpenPolicyNo) Else PolNumb = Val("" & InputBox("Policy ID ")) If Val("" & PolNumb) > 0 Then PolNumb = GetPolicyNumberfromID(PolNumb) End If End If If Val("" & PolNumb) > 0 Then FindPolicy GetPolicyIDfromNumber(PolNumb) End IfEnd Sub
I particularly like the lines...
If Val("" & PolNumb) > 0 Then
which effectively convert a number to a string, prepend an empty string, then convert it back again... just for good measure.
I've always told it: It's better to be in the safe side... :)
CEO at: - Rafaga Systems - Para Facturas - Modern Components for the moment...
-
From some legacy VB6 code I'm in the process of making redundant...
Private Sub Command7_Click()
Dim PolNumb As LongIf Val("" & txtOpenPolicyNo) > 0 Then PolNumb = Val("" & txtOpenPolicyNo) Else PolNumb = Val("" & InputBox("Policy ID ")) If Val("" & PolNumb) > 0 Then PolNumb = GetPolicyNumberfromID(PolNumb) End If End If If Val("" & PolNumb) > 0 Then FindPolicy GetPolicyIDfromNumber(PolNumb) End IfEnd Sub
I particularly like the lines...
If Val("" & PolNumb) > 0 Then
which effectively convert a number to a string, prepend an empty string, then convert it back again... just for good measure.
-
You've missed the point again. I know exactly what the trick is doing. I'll spell it out slowly... 1. The first line declares
PolNumb As Long.2. Consequently, we knowPolNumbis always a number. 3. The lineIf Val("" & PolNumb) > 0 Theneffectively convertsPolNumbto a string and appends it to an empty string, simply to convert it back to a number usingVal, and finally checks if the result is greater than 0. That line could be replaced withIf PolNumb > 0 Thenand be more efficient and more correct (as conceivablyPolNumbcould be zero). The issue is not the use of the Val("" & variant) trick, but the misuse of it applied to something we already know to be a number. -
At my current job we've got a lot of legacy code like that. Just put + "" to the end of every object you can imagine. It will effectively convert the object which you already had to a string and from there you can convert it back to whatever you want (but Val() is indeed very popular!). My company even had its own Val() function which returned 0 if an Exception was thrown :laugh:
It's an OO world.
public class Naerling : Lazy<Person>{
public void DoWork(){ throw new NotImplementedException(); }
}Is that irony? "It's an OO world. public class Naerling : Lazy<Person>{" Now, a Person with type specifier "Lazy" is something I can understand, but a "Lazy" with type specifier "Person" does not seem to be good OO design to me. (just jokes)
-
Yes, I'm particularly surprised that in spite of writing explicitly why it is inappropriate in this case (to convert long->string->long), that people still post to indicate "this is a common idiom in VB6". I'd rephrase that as "this is a common idiocy in VB6". Cargo-cult programming sums it well too. I see why VB6 has such as bad reputation - and its not the language for the most part, and why programming languages aimed at mainstream use should take steps to protect programmers from themselves (strong typing, correct scoping, eliminate global variables, and make bad-idioms a struggle to use). I wonder if there's a cargo-cult approach on message boards too, where if you keep repeating the same wrong reply it will magically begin to work. "Insanity: Doing the same thing over and over again and expecting different results". Albert Einstein.
-
...and in my replies above I've already indicated why it is unnecessary to convert long->string->long.
-
Is that irony? "It's an OO world. public class Naerling : Lazy<Person>{" Now, a Person with type specifier "Lazy" is something I can understand, but a "Lazy" with type specifier "Person" does not seem to be good OO design to me. (just jokes)
Those aren't type specifiers, at least in any language I'm familiar with (C++, C#, Java).
-
Is that irony? "It's an OO world. public class Naerling : Lazy<Person>{" Now, a Person with type specifier "Lazy" is something I can understand, but a "Lazy" with type specifier "Person" does not seem to be good OO design to me. (just jokes)
Lazy<Something> and what's lazy? The Person. Read it out loud and it makes perfect sense :) Besides, I was more worried with signature design than OO design ;)
It's an OO world.
public class Naerling : Lazy<Person>{
public void DoWork(){ throw new NotImplementedException(); }
} -
Yes, I'm particularly surprised that in spite of writing explicitly why it is inappropriate in this case (to convert long->string->long), that people still post to indicate "this is a common idiom in VB6". I'd rephrase that as "this is a common idiocy in VB6". Cargo-cult programming sums it well too. I see why VB6 has such as bad reputation - and its not the language for the most part, and why programming languages aimed at mainstream use should take steps to protect programmers from themselves (strong typing, correct scoping, eliminate global variables, and make bad-idioms a struggle to use). I wonder if there's a cargo-cult approach on message boards too, where if you keep repeating the same wrong reply it will magically begin to work. "Insanity: Doing the same thing over and over again and expecting different results". Albert Einstein.
Slightly in defence of the VB.NET Option Strict Off equivalent, I did see it provides a more user friendly error message. (Programmatically it loses information, because the exception type is always the same, but the error message actually displays the invalid "value".) This is NOT a defence of the current Long->String->Long scenario though.
Regards, Mark Hurd, B.Sc.(Ma.) (Hons.)
-
At my current job we've got a lot of legacy code like that. Just put + "" to the end of every object you can imagine. It will effectively convert the object which you already had to a string and from there you can convert it back to whatever you want (but Val() is indeed very popular!). My company even had its own Val() function which returned 0 if an Exception was thrown :laugh:
It's an OO world.
public class Naerling : Lazy<Person>{
public void DoWork(){ throw new NotImplementedException(); }
}I've seen code like x = 0 - y; which, apparently was a workaround for a compiler bug which sometimes generated the wrong code for x = -y; I've also seen lots of legacy code of the type you've described but not in VB. The thing is that the concatenation operator is & so think about why they've used + before you change it. Sometimes there is a reason for using the +. Just make sure the item on the right is a string: it may not always be a string. When it isn't, what is happening and what are they doing?
-
I've seen code like x = 0 - y; which, apparently was a workaround for a compiler bug which sometimes generated the wrong code for x = -y; I've also seen lots of legacy code of the type you've described but not in VB. The thing is that the concatenation operator is & so think about why they've used + before you change it. Sometimes there is a reason for using the +. Just make sure the item on the right is a string: it may not always be a string. When it isn't, what is happening and what are they doing?
Member 4608898 wrote:
what is happening and what are they doing?
No one really knows... There's lots of obscure bugs in code like that :) Luckily, one of the other 'magical solutions for all your problems' is the wonderful On Error Resume Next command. Really, if it was allowed people would've used On Error Resume Next + "" :laugh:
It's an OO world.
public class Naerling : Lazy<Person>{
public void DoWork(){ throw new NotImplementedException(); }
}
