Just go home
-
I don't know what to say so : pfft....
Rtn = ""
Rtn = Rtn & " Some text " & vbCrLf
... repeat that many times ...
Content = Rtn 'yeah, that just happened. No, Content wasn't used prior to this
MainInfo = WrapContent(Content)
Function WrapContent(connection,content)
Rtn = ""
Rtn = Rtn & ... logic for gathering more information (all in h4 tags) with vbCrLf ..if Content > "" then Rtn = Rtn & "" & vbCrLf Rtn = Rtn & Content xRtn = Rtn 'yeah, that's an xRtn that is never used. Rtn = HtmlReFormat(xRtn & vbCrLf) end if WrapContent = RtnEnd Function
'This may be my favorite part.
Function HtmlReFormat(Content)
Content = Replace(Content,vbCRLF,"
") 'see what we do here. awesome!
Content = Replace(Content," "," ") 'yeah, not with the ;
End Function'the way his iif is actually used in the code is horrible
' and supports messy logic:
'''' example iif ''''Variable = trim(rs("some value"))
Variable = iif(Variable,"=","value","Something",Variable)
Variable = iif(Variable,"=","other value","Something",Variable)
Variable = iif(Variable,"=","yet another value","Something",Variable)
... a few more times ...
Variable = iif(Variable,"=","","Undefined",Variable)'and yes, it sets it back to itself on false every time
''''''''''''''''''''''Function IIF(sVal1, Equal, sVal2 , IfTrue, IfFalse)
dim Rtn Equal = trim(Equal) select case Equal case "=" if sVal1 = sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case "<" if sVal1 < sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case ">" if sVal1 > sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case "<=" if sVal1 <= sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case ">=" if sVal1 >= sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If end select IIF = RtnEnd Function
If it moves, compile it
-
I usually don't post his code on here. There are mountains of stuff in everything he touches. My first job when I got here was to learn a couple of things he was in charge of so that SOMEONE in the company would understand what the heck is going on with them. Everything that involves him that I have to do gives me a headache. It takes me longer to read and understand what is going on with his code than it would for me to write it again from scratch. Funny thing is, it takes him just as long to explain his code as it would me. It's faster to read it yourself than to ask him a question about it because he has to go through the same process (re-reading, trying to figure out what the heck is going on) as I do. Really, I can't even convey what type of coding he does.
If it moves, compile it
-
I usually don't post his code on here. There are mountains of stuff in everything he touches. My first job when I got here was to learn a couple of things he was in charge of so that SOMEONE in the company would understand what the heck is going on with them. Everything that involves him that I have to do gives me a headache. It takes me longer to read and understand what is going on with his code than it would for me to write it again from scratch. Funny thing is, it takes him just as long to explain his code as it would me. It's faster to read it yourself than to ask him a question about it because he has to go through the same process (re-reading, trying to figure out what the heck is going on) as I do. Really, I can't even convey what type of coding he does.
If it moves, compile it
loctrice wrote:
Really, I can't even convey what type of coding he does.
The term "Cowboy Coding" comes to my mind. ('cause the coder rides roughshod all over the code) :)
Chris Meech I am Canadian. [heard in a local bar] In theory there is no difference between theory and practice. In practice there is. [Yogi Berra] posting about Crystal Reports here is like discussing gay marriage on a catholic church’s website.[Nishant Sivakumar]
-
I don't know what to say so : pfft....
Rtn = ""
Rtn = Rtn & " Some text " & vbCrLf
... repeat that many times ...
Content = Rtn 'yeah, that just happened. No, Content wasn't used prior to this
MainInfo = WrapContent(Content)
Function WrapContent(connection,content)
Rtn = ""
Rtn = Rtn & ... logic for gathering more information (all in h4 tags) with vbCrLf ..if Content > "" then Rtn = Rtn & "" & vbCrLf Rtn = Rtn & Content xRtn = Rtn 'yeah, that's an xRtn that is never used. Rtn = HtmlReFormat(xRtn & vbCrLf) end if WrapContent = RtnEnd Function
'This may be my favorite part.
Function HtmlReFormat(Content)
Content = Replace(Content,vbCRLF,"
") 'see what we do here. awesome!
Content = Replace(Content," "," ") 'yeah, not with the ;
End Function'the way his iif is actually used in the code is horrible
' and supports messy logic:
'''' example iif ''''Variable = trim(rs("some value"))
Variable = iif(Variable,"=","value","Something",Variable)
Variable = iif(Variable,"=","other value","Something",Variable)
Variable = iif(Variable,"=","yet another value","Something",Variable)
... a few more times ...
Variable = iif(Variable,"=","","Undefined",Variable)'and yes, it sets it back to itself on false every time
''''''''''''''''''''''Function IIF(sVal1, Equal, sVal2 , IfTrue, IfFalse)
dim Rtn Equal = trim(Equal) select case Equal case "=" if sVal1 = sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case "<" if sVal1 < sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case ">" if sVal1 > sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case "<=" if sVal1 <= sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case ">=" if sVal1 >= sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If end select IIF = RtnEnd Function
If it moves, compile it
-
loctrice wrote:
Really, I can't even convey what type of coding he does.
The term "Cowboy Coding" comes to my mind. ('cause the coder rides roughshod all over the code) :)
Chris Meech I am Canadian. [heard in a local bar] In theory there is no difference between theory and practice. In practice there is. [Yogi Berra] posting about Crystal Reports here is like discussing gay marriage on a catholic church’s website.[Nishant Sivakumar]
-
I don't know what to say so : pfft....
Rtn = ""
Rtn = Rtn & " Some text " & vbCrLf
... repeat that many times ...
Content = Rtn 'yeah, that just happened. No, Content wasn't used prior to this
MainInfo = WrapContent(Content)
Function WrapContent(connection,content)
Rtn = ""
Rtn = Rtn & ... logic for gathering more information (all in h4 tags) with vbCrLf ..if Content > "" then Rtn = Rtn & "" & vbCrLf Rtn = Rtn & Content xRtn = Rtn 'yeah, that's an xRtn that is never used. Rtn = HtmlReFormat(xRtn & vbCrLf) end if WrapContent = RtnEnd Function
'This may be my favorite part.
Function HtmlReFormat(Content)
Content = Replace(Content,vbCRLF,"
") 'see what we do here. awesome!
Content = Replace(Content," "," ") 'yeah, not with the ;
End Function'the way his iif is actually used in the code is horrible
' and supports messy logic:
'''' example iif ''''Variable = trim(rs("some value"))
Variable = iif(Variable,"=","value","Something",Variable)
Variable = iif(Variable,"=","other value","Something",Variable)
Variable = iif(Variable,"=","yet another value","Something",Variable)
... a few more times ...
Variable = iif(Variable,"=","","Undefined",Variable)'and yes, it sets it back to itself on false every time
''''''''''''''''''''''Function IIF(sVal1, Equal, sVal2 , IfTrue, IfFalse)
dim Rtn Equal = trim(Equal) select case Equal case "=" if sVal1 = sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case "<" if sVal1 < sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case ">" if sVal1 > sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case "<=" if sVal1 <= sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case ">=" if sVal1 >= sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If end select IIF = RtnEnd Function
If it moves, compile it
loctrice wrote:
I don't know what to say
I second that. Well... I know what to say, but there's too much and 99.999% of it is not really kid sister safe to say :-\
"The clue train passed his station without stopping." - John Simmons / outlaw programmer "Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon "Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
-
I don't know what to say so : pfft....
Rtn = ""
Rtn = Rtn & " Some text " & vbCrLf
... repeat that many times ...
Content = Rtn 'yeah, that just happened. No, Content wasn't used prior to this
MainInfo = WrapContent(Content)
Function WrapContent(connection,content)
Rtn = ""
Rtn = Rtn & ... logic for gathering more information (all in h4 tags) with vbCrLf ..if Content > "" then Rtn = Rtn & "" & vbCrLf Rtn = Rtn & Content xRtn = Rtn 'yeah, that's an xRtn that is never used. Rtn = HtmlReFormat(xRtn & vbCrLf) end if WrapContent = RtnEnd Function
'This may be my favorite part.
Function HtmlReFormat(Content)
Content = Replace(Content,vbCRLF,"
") 'see what we do here. awesome!
Content = Replace(Content," "," ") 'yeah, not with the ;
End Function'the way his iif is actually used in the code is horrible
' and supports messy logic:
'''' example iif ''''Variable = trim(rs("some value"))
Variable = iif(Variable,"=","value","Something",Variable)
Variable = iif(Variable,"=","other value","Something",Variable)
Variable = iif(Variable,"=","yet another value","Something",Variable)
... a few more times ...
Variable = iif(Variable,"=","","Undefined",Variable)'and yes, it sets it back to itself on false every time
''''''''''''''''''''''Function IIF(sVal1, Equal, sVal2 , IfTrue, IfFalse)
dim Rtn Equal = trim(Equal) select case Equal case "=" if sVal1 = sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case "<" if sVal1 < sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case ">" if sVal1 > sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case "<=" if sVal1 <= sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case ">=" if sVal1 >= sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If end select IIF = RtnEnd Function
If it moves, compile it
-
Wow, that is some of the worst garbage code I have seen and I have seen a lot of poor code. X|
Just because the code works, it doesn't mean that it is good code.
-
I don't know what to say so : pfft....
Rtn = ""
Rtn = Rtn & " Some text " & vbCrLf
... repeat that many times ...
Content = Rtn 'yeah, that just happened. No, Content wasn't used prior to this
MainInfo = WrapContent(Content)
Function WrapContent(connection,content)
Rtn = ""
Rtn = Rtn & ... logic for gathering more information (all in h4 tags) with vbCrLf ..if Content > "" then Rtn = Rtn & "" & vbCrLf Rtn = Rtn & Content xRtn = Rtn 'yeah, that's an xRtn that is never used. Rtn = HtmlReFormat(xRtn & vbCrLf) end if WrapContent = RtnEnd Function
'This may be my favorite part.
Function HtmlReFormat(Content)
Content = Replace(Content,vbCRLF,"
") 'see what we do here. awesome!
Content = Replace(Content," "," ") 'yeah, not with the ;
End Function'the way his iif is actually used in the code is horrible
' and supports messy logic:
'''' example iif ''''Variable = trim(rs("some value"))
Variable = iif(Variable,"=","value","Something",Variable)
Variable = iif(Variable,"=","other value","Something",Variable)
Variable = iif(Variable,"=","yet another value","Something",Variable)
... a few more times ...
Variable = iif(Variable,"=","","Undefined",Variable)'and yes, it sets it back to itself on false every time
''''''''''''''''''''''Function IIF(sVal1, Equal, sVal2 , IfTrue, IfFalse)
dim Rtn Equal = trim(Equal) select case Equal case "=" if sVal1 = sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case "<" if sVal1 < sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case ">" if sVal1 > sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case "<=" if sVal1 <= sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If case ">=" if sVal1 >= sVal2 then Rtn = IfTrue Else Rtn = IfFalse End If end select IIF = RtnEnd Function
If it moves, compile it
This guy must be brilliant if he can write that much code! :D What's best about code such as this is it is really easy to maintain. Need to store anything? Just use
Rtn! Need a new variable? Name itRtn! Need input?Rtn! Need output?Rtn!Rtn, your all-round coding solution, now coming to code near you!It's an OO world.
public class Naerling : Lazy<Person>{
public void DoWork(){ throw new NotImplementedException(); }
} -
Trust me , this is nothing compared to his regular coding. Just a little window from what is, for him, a clean file. I just had enough of dealing with it this time and decided to post.
If it moves, compile it
