5 in a 1 to 10 range

[adgonz]

If the worst horror you could find in my company is ranked 10 and a moderate horror is ranked 1, I think I could rank this with 5:

    Dim key As String
    key= "N"
    key= "linatipedi=" + "'" + key+ "'"
    Dim rR As DataRow() = t.Select(key)
    If rR.Length() = 0 Then
        i = 0
    Else
        Try
            For Each r In rR
                i += 1
            Next r
        Catch
            If i = 0 Then
                Return True
            Else
                Return False
            End If
        End Try
    End If
    If i = 0 Then
        Return True
    Else
        Return False
    End If

[leppie]

adgonz wrote:

I think I could rank this with 5

That is because VB's scale starts at 5 ;P

xacc.ide - now with TabsToSpaces support
IronScheme - 1.0 beta 2 - out now!
((lambda (x) `((lambda (x) ,x) ',x)) '`((lambda (x) ,x) ',x))

[Luc 648011]

Ah the expressive powers of VB and its native speakers :-D

[Luc 648011]

so one couldn't do any better in VB? :)

[leppie]

C#:

string[] codes = { "bad", "good" };
int rating = Array.IndexOf(codes, "bad") * 5; // use 5 star system

Now do the VB one! :)

xacc.ide - now with TabsToSpaces support
IronScheme - 1.0 beta 2 - out now!
((lambda (x) `((lambda (x) ,x) ',x)) '`((lambda (x) ,x) ',x))

modified on Wednesday, April 15, 2009 11:05 AM

[0x3c0]

Um, the Array.IndexOf method looks a little off. Shouldn't it be Array.IndexOf(codes, "bad")?

[Luc 648011]

I wouldn't know where to start, except for tossing out all those fancy brackets and semi-colons... :)

[PIEBALDconsult]

Leppie, I think you need to step away from the computer and get some rest.

[leppie]

Yeah, now fixed, my brain needs rest now! :sigh:

xacc.ide - now with TabsToSpaces support
IronScheme - 1.0 beta 2 - out now!
((lambda (x) `((lambda (x) ,x) ',x)) '`((lambda (x) ,x) ',x))

[Ian Shlasko]

Oh, come on... Even VB can do this in one line plus exception handling...

Try
Return t.Select("linatipedi='N'").Length = 0 // *resists urge to type two ='s*
Catch
Return False
End Try

Man, if this is a 5, I'd really hate to see a 10... Translation: Post one of the 10's! Heheh

[notmasteryet]

leppie wrote:

Yeah, now fixed, my brain needs rest now!

...too much VB code for that one

[adgonz]

Ian Shlasko wrote:

Translation: Post one of the 10's! Heheh

A 6 or 7 (I'm not sure) is this code is from a function that should never had been called / written, so your better implementation is useless.

[dybs]

Doesn't this actually gives a rating of 0 ("bad" is the first element, and 0 * anything = 0)? Dybs

[Rob Grainger]

Ian Shlasko wrote:

// *resists urge to type two ='s*

'Couldn't resist the temptation to use C++-style comments though.

[Ian Shlasko]

Ack! I totally missed that... Well, shows how much I've tried to get away from VB.

[Vozzie2]

Looks like VB is scoring better,...

Dim codes() As String = New String(){"bad", "good"}
Dim rating As Integer = (Array.IndexOf(codes, "bad") + 1) * 5

It feels good to learn and achieve