Repeated numbers

[Robert Scheer]

Hi.

I am trying to write a boolean function that checks if the user
entered a sequence with 7 equal numbers, eg: 1111111, 2222222, 3333333
and so on. How can I do this in VB.NET ?

Thanks,
Robert Scheer

[Armin Zingler]

"Robert Scheer" <rb******@my-deja.comschrieb

Hi.

I am trying to write a boolean function that checks if the user
entered a sequence with 7 equal numbers, eg: 1111111, 2222222,
3333333 and so on. How can I do this in VB.NET ?

Dim s As String = "1111111"
Dim b As Boolean

b = _
s.length = 7 _
andalso _
Array.TrueForAll(s.ToCharArray, Function(c As Char) (c = s(0)))

(VB 2008)
Armin

[Teemu]

"Armin Zingler" <az*******@freenet.dekirjoitti viestissä
news:eO**************@TK2MSFTNGP04.phx.gbl...

"Robert Scheer" <rb******@my-deja.comschrieb

>Hi.

I am trying to write a boolean function that checks if the user
entered a sequence with 7 equal numbers, eg: 1111111, 2222222,
3333333 and so on. How can I do this in VB.NET ?

Another solution:

Dim a As String = "1111111"
Dim b As Boolean = False

b = a.Length = 7 AndAlso a.Replace(a.Substring(0, 1), "") = ""

Doesn't need VB 2008.

-Teemu

[=?Utf-8?B?RmFtaWx5IFRyZWUgTWlrZQ==?=]

"Teemu" wrote:

>
"Armin Zingler" <az*******@freenet.dekirjoitti viestissä
news:eO**************@TK2MSFTNGP04.phx.gbl...

"Robert Scheer" <rb******@my-deja.comschrieb

Hi.

I am trying to write a boolean function that checks if the user
entered a sequence with 7 equal numbers, eg: 1111111, 2222222,
3333333 and so on. How can I do this in VB.NET ?

Another solution:

Dim a As String = "1111111"
Dim b As Boolean = False

b = a.Length = 7 AndAlso a.Replace(a.Substring(0, 1), "") = ""

Doesn't need VB 2008.

-Teemu

But both of these codes evaluate to true for the string "AAAAAAA". I guess
the original poster should have some of the fun catching this case.

>

[Teemu]

"Family Tree Mike" <Fa************@discussions.microsoft.comkirjoit ti
viestissä news:6E**********************************@microsof t.com...

>

"Teemu" wrote:

>>
"Armin Zingler" <az*******@freenet.dekirjoitti viestissä
news:eO**************@TK2MSFTNGP04.phx.gbl...

"Robert Scheer" <rb******@my-deja.comschrieb
Hi.

I am trying to write a boolean function that checks if the user
entered a sequence with 7 equal numbers, eg: 1111111, 2222222,
3333333 and so on. How can I do this in VB.NET ?

Another solution:

Dim a As String = "1111111"
Dim b As Boolean = False

b = a.Length = 7 AndAlso a.Replace(a.Substring(0, 1), "") = ""

But both of these codes evaluate to true for the string "AAAAAAA". I
guess
the original poster should have some of the fun catching this case.

That's easy:

b = a.Length = 7 AndAlso IsNumeric(a) AndAlso a.Replace(a.Substring(0, 1),
"") = ""

-Teemu

[Armin Zingler]

"Family Tree Mike" <Fa************@discussions.microsoft.comschrieb

>
But both of these codes evaluate to true for the string "AAAAAAA".
I guess the original poster should have some of the fun catching
this case.

You're right.

b = _
s.Length = 7 _
AndAlso _
"0123456789".IndexOf(s(0)) -1 _
AndAlso _
Array.TrueForAll(s.ToCharArray, Function(c As Char) (c = s(0)))
Better? ;-)
Armin

[=?Utf-8?B?RmFtaWx5IFRyZWUgTWlrZQ==?=]

"Armin Zingler" wrote:

"Family Tree Mike" <Fa************@discussions.microsoft.comschrieb

But both of these codes evaluate to true for the string "AAAAAAA".
I guess the original poster should have some of the fun catching
this case.

You're right.

b = _
s.Length = 7 _
AndAlso _
"0123456789".IndexOf(s(0)) -1 _
AndAlso _
Array.TrueForAll(s.ToCharArray, Function(c As Char) (c = s(0)))
Better? ;-)
Armin

You both got it! I prefer the VB 2008 way (TrueForAll), but I may have gone
for an extension method to string.

[=?Utf-8?B?RmFtaWx5IFRyZWUgTWlrZQ==?=]

You both got it! I prefer the VB 2008 way (TrueForAll), but I may have gone

for an extension method to string.

Sorry, the C# side of me slipped out...

[Armin Zingler]

"Family Tree Mike" <Fa************@discussions.microsoft.comschrieb

You both got it! I prefer the VB 2008 way (TrueForAll), but I may
have gone for an extension method to string.

Sorry, the C# side of me slipped out...

Ok, let's extend this thread to extensions.... ;)
<System.Runtime.CompilerServices.Extension()_
Public Function TrueForAll( _
ByVal s As String, ByVal match As Predicate(Of Char)) _
As Boolean
For Each c In s
If Not match(c) Then Return False
Next
Return True
End Function

<System.Runtime.CompilerServices.Extension()_
Public Function EqualDigitsOnly(ByVal s As String) As Boolean

Return Char.IsDigit(s(0)) _
AndAlso _
s.TrueForAll(Function(c As Char) (c = s(0)))

End Function
Call:
b = s.Length = 7 AndAlso s.EqualDigitsOnly

;-)
Armin

[=?Utf-8?B?RmFtaWx5IFRyZWUgTWlrZQ==?=]

"Armin Zingler" wrote:

"Family Tree Mike" <Fa************@discussions.microsoft.comschrieb

You both got it! I prefer the VB 2008 way (TrueForAll), but I may
have gone for an extension method to string.
>

Sorry, the C# side of me slipped out...

Ok, let's extend this thread to extensions.... ;)
<System.Runtime.CompilerServices.Extension()_
Public Function TrueForAll( _
ByVal s As String, ByVal match As Predicate(Of Char)) _
As Boolean
For Each c In s
If Not match(c) Then Return False
Next
Return True
End Function

<System.Runtime.CompilerServices.Extension()_
Public Function EqualDigitsOnly(ByVal s As String) As Boolean

Return Char.IsDigit(s(0)) _
AndAlso _
s.TrueForAll(Function(c As Char) (c = s(0)))

End Function
Call:
b = s.Length = 7 AndAlso s.EqualDigitsOnly

;-)
Armin

Thanks! I didn't realize VB allowed for this!

[Tom Shelton]

On 2007-12-11, Family Tree Mike <Fa************@discussions.microsoft.comwrote:

>

"Armin Zingler" wrote:

>"Family Tree Mike" <Fa************@discussions.microsoft.comschrieb

You both got it! I prefer the VB 2008 way (TrueForAll), but I may
have gone for an extension method to string.
Sorry, the C# side of me slipped out...

Ok, let's extend this thread to extensions.... ;)
<System.Runtime.CompilerServices.Extension()_
Public Function TrueForAll( _
ByVal s As String, ByVal match As Predicate(Of Char)) _
As Boolean
For Each c In s
If Not match(c) Then Return False
Next
Return True
End Function

<System.Runtime.CompilerServices.Extension()_
Public Function EqualDigitsOnly(ByVal s As String) As Boolean

Return Char.IsDigit(s(0)) _
AndAlso _
s.TrueForAll(Function(c As Char) (c = s(0)))

End Function
Call:
b = s.Length = 7 AndAlso s.EqualDigitsOnly

;-)
Armin

Thanks! I didn't realize VB allowed for this!

2008 does. It has to, to support LINQ.

--
Tom Shelton

[andreas]

what about this?

Private Function TrueForAll(ByVal s As String) As Boolean
Return IsNumeric(s) AndAlso Len(s) = 7 _
AndAlso Len(CStr(CSng(s)/ 1111111)) = 1
End Function

very simple of a simple mind
"Robert Scheer" <rb******@my-deja.comschreef in bericht
news:7c**********************************@s8g2000p rg.googlegroups.com...

Hi.

I am trying to write a boolean function that checks if the user
entered a sequence with 7 equal numbers, eg: 1111111, 2222222, 3333333
and so on. How can I do this in VB.NET ?

Thanks,
Robert Scheer

[andreas]

perhaps, if necessary, a litle correction if the number must be different
from zero

what about this?

Private Function TrueForAll(ByVal s As String) As Boolean
Return IsNumeric(s) AndAlso Len(s) = 7 _
AndAlso Len(CStr(CSng(s)/ 1111111)) = 1 andalso cint(s) 0
End Function

very simple of a simple mind
"andreas" <an*****@pandora.beschreef in bericht
news:fa**********************@phobos.telenet-ops.be...

what about this?

Private Function TrueForAll(ByVal s As String) As Boolean
Return IsNumeric(s) AndAlso Len(s) = 7 _
AndAlso Len(CStr(CSng(s)/ 1111111)) = 1
End Function

very simple of a simple mind
"Robert Scheer" <rb******@my-deja.comschreef in bericht
news:7c**********************************@s8g2000p rg.googlegroups.com...

>Hi.

I am trying to write a boolean function that checks if the user
entered a sequence with 7 equal numbers, eg: 1111111, 2222222, 3333333
and so on. How can I do this in VB.NET ?

Thanks,
Robert Scheer