Just go home

loctrice

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 = Rtn

End 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 = Rtn

End Function

If it moves, compile it

ekolis

Wow... You should stick an Option Explicit in there and wait for the guy to come complaining about a bunch of compile errors that weren't there yesterday... ;P And I love how he defines his own "enhanced" version of IIf...

BobJanova

Have a 5 for the sheer level of :doh: involved in this.

loctrice

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

Chris Meech

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]

enhzflep

Think I got as far as & vbCrLf before I knew it was going to be some fun. Thanks! It certainly didn't disappoint.

loctrice

I say he's not a programmer , he's a script kiddie. He can make a computer do something given enough time, but has no place in professional code.

If it moves, compile it

Paul Conrad

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

BillW33

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.

loctrice

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

Sander Rossel

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 it Rtn! 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(); }
}

BillW33

My sympathies to you for having to put up with that nonsense.

Just because the code works, it doesn't mean that it is good code.