Check Strings.

[mipakteh]

Hi All,

what I do is;

1.text file have 5 lines.

2.count 0 to 9 for every lines.

3.After counted we find the same count.

My question is;

How by click button2 the textbox3 show the result

1.KV.Value are same number then

2.List Num09_Count are matching with KV.Value

example;

2311,3461,1965,2553,8363,1540,1969,8385,1281,5885,4951,8862,5830,7845,6239,0927,5144,7703,6525,6011,6153,8522,8221
0 Is 5
1 Is 14
2 Is 11
3 Is 10
4 Is 6
5 Is 15
6 Is 9
7 Is 4
8 Is 12
9 Is 6
5=1 ,14=1 ,11=1 ,10=1 ,6=2 ,15=1 ,9=1 ,4=1 ,12=1 ,

in KV.Value the same number is 6 then textbox3 must show the result is

4 and 9.

thank

Option Strict On
Option Infer Off
Option Explicit On

Imports System.IO
Imports System.Data
Imports System.Text

Public Class Form1

Private Data As New List(Of String)

Private Items As New List(Of ItemInfo)
Private Items_A As New List(Of ItemInfo_A)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Txt File;
'2311,3461,1965,2553,8363,1540,1969,8385,1281,5885,4951,8862,5830,7845,6239,0927,5144,7703,6525,6011,6153,8522,8221
'3096,9575,5857,7523,2939,8257,1090,7786,3978,2445,5678,6082,5068,3348,3116,0567,5330,3163,8051,1694,6228,0958,0520
'1252,7456,2918,7195,5261,3915,9565,1349,1809,7841,1955,6685,9474,3382,0878,0215,0475,5198,6304,0340,4132,7968,4855
'6280,0689,8129,9546,3877,3065,7630,5954,3681,0133,9917,1656,3476,3534,5891,6136,5329,3062,4304,0359,9408,4010,7549
'5953,7633,5290,3677,9283,0286,4362,5138,3595,1611,5595,2606,0875,6508,4577,1552,9343,5943,0249,0661,7035,7981,3793

Data.AddRange(IO.File.ReadAllLines("C:\Users\Uset\Documents\3Lines.txt"))

While (Data(Data.Count - 1) = "")
Data.RemoveAt(Data.Count - 1)
End While

For i As Integer = 0 To Data.Count - 1
TextBox1.AppendText(Data(i) & vbCrLf)
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For J As Integer = 0 To Data.Count - 1

TextBox2.AppendText(Data(J).ToString & vbCrLf)

Dim Num09 As New List(Of String)
Dim Num09_Count As New List(Of String)


For I As Integer = 0 To 9
Dim Number As String = CStr(I)
Dim NumberCount As String = Data(J).Count(Function(c As Char) c = Number).ToString
TextBox2.AppendText(Number & " Is " & NumberCount & " " & vbCrLf)
Num09.Add(Number)
Num09_Count.Add(NumberCount)

Items.Add(New ItemInfo With {.A_ = Num09(I), .B_ = Num09_Count(I)})
Next


Dim Result As New Dictionary(Of String, Integer)

For Each Item As String In Num09_Count
If Result.Keys.Contains(Item) Then
Result(Item) += 1
Else
Result.Add(Item, 1)
End If
Next


For Each KV As KeyValuePair(Of String, Integer) In Result
TextBox2.AppendText(KV.Key & "=" & KV.Value.ToString & " ,")
Items_A.Add(New ItemInfo_A With {.C_ = KV.Key, .D_ = KV.Value.ToString})
Next
TextBox2.AppendText(vbCrLf)


Next


End Sub


Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

For Each V As ItemInfo_A In Items_A
If V.D_ = "2" Then
TextBox3.AppendText(V.C_ & vbCrLf)
End If
Next


End Sub

End Class

Public Class ItemInfo
Public A_ As String
Public B_ As String

Public Overrides Function ToString() As String
Return A_.ToString & " -> " & B_.ToString
End Function

End Class

Public Class ItemInfo_A
Public C_ As String
Public D_ As String

Public Overrides Function ToString() As String
Return C_.ToString & " -> " & D_.ToString
End Function


End Class

Continue reading...