M
mipakteh
Guest
Hi All,
I have some digit in lines.When count that digit ,All different digits count correctly but if digit same count fail.
44 - count =70 Expected count= 5
55 - count =114 Expected count= 11
99 - count =89 Expected count= 6
00 - count =69 Expected count= 3
where is my mistake.?
Imports System.IO
Imports System.Data
Imports System.Text
Imports System.Text.RegularExpressions
Public Class Form1
Dim Data As New List(Of String)
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Data.Add("96")
Data.Add("90")
Data.Add("90")
Data.Add("60")
Data.Add("60")
Data.Add("00")
Data.Add("41")
Data.Add("45")
Data.Add("44")
Data.Add("15")
Data.Add("14")
Data.Add("54")
Data.Add("29")
Data.Add("27")
Data.Add("22")
Data.Add("97")
Data.Add("92")
Data.Add("72")
Data.Add("55")
Data.Add("59")
Data.Add("55")
Data.Add("59")
Data.Add("55")
Data.Add("95")
Data.Add("70")
Data.Add("78")
Data.Add("76")
Data.Add("08")
Data.Add("06")
Data.Add("86")
Data.Add("29")
Data.Add("24")
Data.Add("27")
Data.Add("94")
Data.Add("97")
Data.Add("47")
Data.Add("59")
Data.Add("51")
Data.Add("55")
Data.Add("91")
Data.Add("95")
Data.Add("15")
Data.Add("74")
Data.Add("76")
Data.Add("73")
Data.Add("46")
Data.Add("43")
Data.Add("63")
Data.Add("22")
Data.Add("23")
Data.Add("23")
Data.Add("23")
Data.Add("23")
Data.Add("33")
Data.Add("38")
Data.Add("39")
Data.Add("37")
Data.Add("89")
Data.Add("87")
Data.Add("97")
Data.Add("39")
Data.Add("35")
Data.Add("35")
Data.Add("95")
Data.Add("95")
Data.Add("55")
Data.Add("88")
Data.Add("86")
Data.Add("88")
Data.Add("86")
Data.Add("88")
Data.Add("68")
Data.Add("98")
Data.Add("91")
Data.Add("99")
Data.Add("81")
Data.Add("89")
Data.Add("19")
Data.Add("00")
Data.Add("02")
Data.Add("05")
Data.Add("02")
Data.Add("05")
Data.Add("25")
Data.Add("63")
Data.Add("63")
Data.Add("60")
Data.Add("33")
Data.Add("30")
Data.Add("30")
Data.Add("85")
Data.Add("85")
Data.Add("88")
Data.Add("55")
Data.Add("58")
Data.Add("58")
Data.Add("67")
Data.Add("65")
Data.Add("60")
Data.Add("75")
Data.Add("70")
Data.Add("50")
Data.Add("78")
Data.Add("75")
Data.Add("75")
Data.Add("85")
Data.Add("85")
Data.Add("55")
Data.Add("69")
Data.Add("64")
Data.Add("61")
Data.Add("94")
Data.Add("91")
Data.Add("41")
Data.Add("75")
Data.Add("73")
Data.Add("71")
Data.Add("53")
Data.Add("51")
Data.Add("31")
Data.Add("06")
Data.Add("00")
Data.Add("03")
Data.Add("60")
Data.Add("63")
Data.Add("03")
Data.Add("54")
Data.Add("59")
Data.Add("56")
Data.Add("49")
Data.Add("46")
Data.Add("96")
Data.Add("17")
Data.Add("18")
Data.Add("15")
Data.Add("78")
Data.Add("75")
Data.Add("85")
Data.Add("46")
Data.Add("42")
Data.Add("47")
Data.Add("62")
Data.Add("67")
Data.Add("27")
Data.Add("52")
Data.Add("52")
Data.Add("53")
Data.Add("22")
Data.Add("23")
Data.Add("23")
Data.Add("99")
Data.Add("95")
Data.Add("99")
Data.Add("95")
Data.Add("99")
Data.Add("59")
Data.Add("62")
Data.Add("64")
Data.Add("63")
Data.Add("24")
Data.Add("23")
Data.Add("43")
Data.Add("18")
Data.Add("17")
Data.Add("18")
Data.Add("87")
Data.Add("88")
Data.Add("78")
Data.Add("50")
Data.Add("56")
Data.Add("52")
Data.Add("06")
Data.Add("02")
Data.Add("62")
Data.Add("96")
Data.Add("97")
Data.Add("99")
Data.Add("67")
Data.Add("69")
Data.Add("79")
Data.Add("18")
Data.Add("19")
Data.Add("18")
Data.Add("89")
Data.Add("88")
Data.Add("98")
Data.Add("48")
Data.Add("45")
Data.Add("47")
Data.Add("85")
Data.Add("87")
Data.Add("57")
Data.Add("10")
Data.Add("13")
Data.Add("11")
Data.Add("03")
Data.Add("01")
Data.Add("31")
Data.Add("59")
Data.Add("55")
Data.Add("57")
Data.Add("95")
Data.Add("97")
Data.Add("57")
Data.Add("60")
Data.Add("62")
Data.Add("67")
Data.Add("02")
Data.Add("07")
Data.Add("27")
Data.Add("22")
Data.Add("20")
Data.Add("27")
Data.Add("20")
Data.Add("27")
Data.Add("07")
Data.Add("15")
Data.Add("16")
Data.Add("15")
Data.Add("56")
Data.Add("55")
Data.Add("65")
Data.Add("92")
Data.Add("95")
Data.Add("98")
Data.Add("25")
Data.Add("28")
Data.Add("58")
Data.Add("25")
Data.Add("27")
Data.Add("27")
Data.Add("57")
Data.Add("57")
Data.Add("77")
Data.Add("28")
Data.Add("29")
Data.Add("20")
Data.Add("89")
Data.Add("80")
Data.Add("90")
Data.Add("17")
Data.Add("10")
Data.Add("13")
Data.Add("70")
Data.Add("73")
Data.Add("03")
Data.Add("18")
Data.Add("11")
Data.Add("13")
Data.Add("81")
Data.Add("83")
Data.Add("13")
Data.Add("60")
Data.Add("66")
Data.Add("62")
Data.Add("06")
Data.Add("02")
Data.Add("62")
Data.Add("33")
Data.Add("38")
Data.Add("37")
Data.Add("38")
Data.Add("37")
Data.Add("87")
Data.Add("45")
Data.Add("48")
Data.Add("43")
Data.Add("58")
Data.Add("53")
Data.Add("83")
Data.Add("62")
Data.Add("60")
Data.Add("61")
Data.Add("20")
Data.Add("21")
Data.Add("01")
Data.Add("52")
Data.Add("55")
Data.Add("54")
Data.Add("25")
Data.Add("24")
Data.Add("54")
Data.Add("44")
Data.Add("48")
Data.Add("47")
Data.Add("48")
Data.Add("47")
Data.Add("87")
Data.Add("36")
Data.Add("35")
Data.Add("30")
Data.Add("65")
Data.Add("60")
Data.Add("50")
Data.Add("81")
Data.Add("85")
Data.Add("81")
Data.Add("15")
Data.Add("11")
Data.Add("51")
Data.Add("77")
Data.Add("74")
Data.Add("73")
Data.Add("74")
Data.Add("73")
Data.Add("43")
Data.Add("01")
Data.Add("09")
Data.Add("05")
Data.Add("19")
Data.Add("15")
Data.Add("95")
Data.Add("24")
Data.Add("25")
Data.Add("22")
Data.Add("45")
Data.Add("42")
Data.Add("52")
Data.Add("76")
Data.Add("79")
Data.Add("71")
Data.Add("69")
Data.Add("61")
Data.Add("91")
Data.Add("46")
Data.Add("44")
Data.Add("43")
Data.Add("64")
Data.Add("63")
Data.Add("43")
Data.Add("59")
Data.Add("59")
Data.Add("50")
Data.Add("99")
Data.Add("90")
Data.Add("90")
Data.Add("19")
Data.Add("19")
Data.Add("10")
Data.Add("99")
Data.Add("90")
Data.Add("90")
Data.Add("35")
Data.Add("35")
Data.Add("37")
Data.Add("55")
Data.Add("57")
Data.Add("57")
Data.Add("74")
Data.Add("79")
Data.Add("74")
Data.Add("49")
Data.Add("44")
Data.Add("94")
Data.Add("70")
Data.Add("75")
Data.Add("72")
Data.Add("05")
Data.Add("02")
Data.Add("52")
Data.Add("81")
Data.Add("85")
Data.Add("85")
Data.Add("15")
Data.Add("15")
Data.Add("55")
Data.Add("63")
Data.Add("68")
Data.Add("62")
Data.Add("38")
Data.Add("32")
Data.Add("82")
Data.Add("04")
Data.Add("06")
Data.Add("09")
Data.Add("46")
Data.Add("49")
Data.Add("69")
Data.Add("24")
Data.Add("29")
Data.Add("21")
Data.Add("49")
Data.Add("41")
Data.Add("91")
Data.Add("76")
Data.Add("76")
Data.Add("74")
Data.Add("66")
Data.Add("64")
Data.Add("64")
Data.Add("92")
Data.Add("91")
Data.Add("94")
Data.Add("21")
Data.Add("24")
Data.Add("14")
Data.Add("59")
Data.Add("51")
Data.Add("58")
Data.Add("91")
Data.Add("98")
Data.Add("18")
Data.Add("05")
Data.Add("04")
Data.Add("04")
Data.Add("54")
Data.Add("54")
Data.Add("44")
Data.Add("92")
Data.Add("96")
Data.Add("91")
Data.Add("26")
Data.Add("21")
Data.Add("61")
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
For Each S As String In Data
Me.TextBox2.AppendText(S & vbCrLf)
Dim StringsToFind As String() = {S(0), S(1)}
For j As Integer = 0 To StringsToFind.Count - 2
Dim Count As Integer = 0
For Each Check As String In Data
If Check.Contains(StringsToFind(j)) AndAlso Check.Contains(StringsToFind(j + 1)) Then Count += 1
Next
Me.TextBox3.AppendText("Occurances (" & S & ", " & StringsToFind(j) & StringsToFind(j + 1) & ")= " & Count.ToString & vbCrLf)
Next
Next
End Sub
End Class
Continue reading...
I have some digit in lines.When count that digit ,All different digits count correctly but if digit same count fail.
44 - count =70 Expected count= 5
55 - count =114 Expected count= 11
99 - count =89 Expected count= 6
00 - count =69 Expected count= 3
where is my mistake.?
Imports System.IO
Imports System.Data
Imports System.Text
Imports System.Text.RegularExpressions
Public Class Form1
Dim Data As New List(Of String)
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Data.Add("96")
Data.Add("90")
Data.Add("90")
Data.Add("60")
Data.Add("60")
Data.Add("00")
Data.Add("41")
Data.Add("45")
Data.Add("44")
Data.Add("15")
Data.Add("14")
Data.Add("54")
Data.Add("29")
Data.Add("27")
Data.Add("22")
Data.Add("97")
Data.Add("92")
Data.Add("72")
Data.Add("55")
Data.Add("59")
Data.Add("55")
Data.Add("59")
Data.Add("55")
Data.Add("95")
Data.Add("70")
Data.Add("78")
Data.Add("76")
Data.Add("08")
Data.Add("06")
Data.Add("86")
Data.Add("29")
Data.Add("24")
Data.Add("27")
Data.Add("94")
Data.Add("97")
Data.Add("47")
Data.Add("59")
Data.Add("51")
Data.Add("55")
Data.Add("91")
Data.Add("95")
Data.Add("15")
Data.Add("74")
Data.Add("76")
Data.Add("73")
Data.Add("46")
Data.Add("43")
Data.Add("63")
Data.Add("22")
Data.Add("23")
Data.Add("23")
Data.Add("23")
Data.Add("23")
Data.Add("33")
Data.Add("38")
Data.Add("39")
Data.Add("37")
Data.Add("89")
Data.Add("87")
Data.Add("97")
Data.Add("39")
Data.Add("35")
Data.Add("35")
Data.Add("95")
Data.Add("95")
Data.Add("55")
Data.Add("88")
Data.Add("86")
Data.Add("88")
Data.Add("86")
Data.Add("88")
Data.Add("68")
Data.Add("98")
Data.Add("91")
Data.Add("99")
Data.Add("81")
Data.Add("89")
Data.Add("19")
Data.Add("00")
Data.Add("02")
Data.Add("05")
Data.Add("02")
Data.Add("05")
Data.Add("25")
Data.Add("63")
Data.Add("63")
Data.Add("60")
Data.Add("33")
Data.Add("30")
Data.Add("30")
Data.Add("85")
Data.Add("85")
Data.Add("88")
Data.Add("55")
Data.Add("58")
Data.Add("58")
Data.Add("67")
Data.Add("65")
Data.Add("60")
Data.Add("75")
Data.Add("70")
Data.Add("50")
Data.Add("78")
Data.Add("75")
Data.Add("75")
Data.Add("85")
Data.Add("85")
Data.Add("55")
Data.Add("69")
Data.Add("64")
Data.Add("61")
Data.Add("94")
Data.Add("91")
Data.Add("41")
Data.Add("75")
Data.Add("73")
Data.Add("71")
Data.Add("53")
Data.Add("51")
Data.Add("31")
Data.Add("06")
Data.Add("00")
Data.Add("03")
Data.Add("60")
Data.Add("63")
Data.Add("03")
Data.Add("54")
Data.Add("59")
Data.Add("56")
Data.Add("49")
Data.Add("46")
Data.Add("96")
Data.Add("17")
Data.Add("18")
Data.Add("15")
Data.Add("78")
Data.Add("75")
Data.Add("85")
Data.Add("46")
Data.Add("42")
Data.Add("47")
Data.Add("62")
Data.Add("67")
Data.Add("27")
Data.Add("52")
Data.Add("52")
Data.Add("53")
Data.Add("22")
Data.Add("23")
Data.Add("23")
Data.Add("99")
Data.Add("95")
Data.Add("99")
Data.Add("95")
Data.Add("99")
Data.Add("59")
Data.Add("62")
Data.Add("64")
Data.Add("63")
Data.Add("24")
Data.Add("23")
Data.Add("43")
Data.Add("18")
Data.Add("17")
Data.Add("18")
Data.Add("87")
Data.Add("88")
Data.Add("78")
Data.Add("50")
Data.Add("56")
Data.Add("52")
Data.Add("06")
Data.Add("02")
Data.Add("62")
Data.Add("96")
Data.Add("97")
Data.Add("99")
Data.Add("67")
Data.Add("69")
Data.Add("79")
Data.Add("18")
Data.Add("19")
Data.Add("18")
Data.Add("89")
Data.Add("88")
Data.Add("98")
Data.Add("48")
Data.Add("45")
Data.Add("47")
Data.Add("85")
Data.Add("87")
Data.Add("57")
Data.Add("10")
Data.Add("13")
Data.Add("11")
Data.Add("03")
Data.Add("01")
Data.Add("31")
Data.Add("59")
Data.Add("55")
Data.Add("57")
Data.Add("95")
Data.Add("97")
Data.Add("57")
Data.Add("60")
Data.Add("62")
Data.Add("67")
Data.Add("02")
Data.Add("07")
Data.Add("27")
Data.Add("22")
Data.Add("20")
Data.Add("27")
Data.Add("20")
Data.Add("27")
Data.Add("07")
Data.Add("15")
Data.Add("16")
Data.Add("15")
Data.Add("56")
Data.Add("55")
Data.Add("65")
Data.Add("92")
Data.Add("95")
Data.Add("98")
Data.Add("25")
Data.Add("28")
Data.Add("58")
Data.Add("25")
Data.Add("27")
Data.Add("27")
Data.Add("57")
Data.Add("57")
Data.Add("77")
Data.Add("28")
Data.Add("29")
Data.Add("20")
Data.Add("89")
Data.Add("80")
Data.Add("90")
Data.Add("17")
Data.Add("10")
Data.Add("13")
Data.Add("70")
Data.Add("73")
Data.Add("03")
Data.Add("18")
Data.Add("11")
Data.Add("13")
Data.Add("81")
Data.Add("83")
Data.Add("13")
Data.Add("60")
Data.Add("66")
Data.Add("62")
Data.Add("06")
Data.Add("02")
Data.Add("62")
Data.Add("33")
Data.Add("38")
Data.Add("37")
Data.Add("38")
Data.Add("37")
Data.Add("87")
Data.Add("45")
Data.Add("48")
Data.Add("43")
Data.Add("58")
Data.Add("53")
Data.Add("83")
Data.Add("62")
Data.Add("60")
Data.Add("61")
Data.Add("20")
Data.Add("21")
Data.Add("01")
Data.Add("52")
Data.Add("55")
Data.Add("54")
Data.Add("25")
Data.Add("24")
Data.Add("54")
Data.Add("44")
Data.Add("48")
Data.Add("47")
Data.Add("48")
Data.Add("47")
Data.Add("87")
Data.Add("36")
Data.Add("35")
Data.Add("30")
Data.Add("65")
Data.Add("60")
Data.Add("50")
Data.Add("81")
Data.Add("85")
Data.Add("81")
Data.Add("15")
Data.Add("11")
Data.Add("51")
Data.Add("77")
Data.Add("74")
Data.Add("73")
Data.Add("74")
Data.Add("73")
Data.Add("43")
Data.Add("01")
Data.Add("09")
Data.Add("05")
Data.Add("19")
Data.Add("15")
Data.Add("95")
Data.Add("24")
Data.Add("25")
Data.Add("22")
Data.Add("45")
Data.Add("42")
Data.Add("52")
Data.Add("76")
Data.Add("79")
Data.Add("71")
Data.Add("69")
Data.Add("61")
Data.Add("91")
Data.Add("46")
Data.Add("44")
Data.Add("43")
Data.Add("64")
Data.Add("63")
Data.Add("43")
Data.Add("59")
Data.Add("59")
Data.Add("50")
Data.Add("99")
Data.Add("90")
Data.Add("90")
Data.Add("19")
Data.Add("19")
Data.Add("10")
Data.Add("99")
Data.Add("90")
Data.Add("90")
Data.Add("35")
Data.Add("35")
Data.Add("37")
Data.Add("55")
Data.Add("57")
Data.Add("57")
Data.Add("74")
Data.Add("79")
Data.Add("74")
Data.Add("49")
Data.Add("44")
Data.Add("94")
Data.Add("70")
Data.Add("75")
Data.Add("72")
Data.Add("05")
Data.Add("02")
Data.Add("52")
Data.Add("81")
Data.Add("85")
Data.Add("85")
Data.Add("15")
Data.Add("15")
Data.Add("55")
Data.Add("63")
Data.Add("68")
Data.Add("62")
Data.Add("38")
Data.Add("32")
Data.Add("82")
Data.Add("04")
Data.Add("06")
Data.Add("09")
Data.Add("46")
Data.Add("49")
Data.Add("69")
Data.Add("24")
Data.Add("29")
Data.Add("21")
Data.Add("49")
Data.Add("41")
Data.Add("91")
Data.Add("76")
Data.Add("76")
Data.Add("74")
Data.Add("66")
Data.Add("64")
Data.Add("64")
Data.Add("92")
Data.Add("91")
Data.Add("94")
Data.Add("21")
Data.Add("24")
Data.Add("14")
Data.Add("59")
Data.Add("51")
Data.Add("58")
Data.Add("91")
Data.Add("98")
Data.Add("18")
Data.Add("05")
Data.Add("04")
Data.Add("04")
Data.Add("54")
Data.Add("54")
Data.Add("44")
Data.Add("92")
Data.Add("96")
Data.Add("91")
Data.Add("26")
Data.Add("21")
Data.Add("61")
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
For Each S As String In Data
Me.TextBox2.AppendText(S & vbCrLf)
Dim StringsToFind As String() = {S(0), S(1)}
For j As Integer = 0 To StringsToFind.Count - 2
Dim Count As Integer = 0
For Each Check As String In Data
If Check.Contains(StringsToFind(j)) AndAlso Check.Contains(StringsToFind(j + 1)) Then Count += 1
Next
Me.TextBox3.AppendText("Occurances (" & S & ", " & StringsToFind(j) & StringsToFind(j + 1) & ")= " & Count.ToString & vbCrLf)
Next
Next
End Sub
End Class
Continue reading...