Dim temp As Translator
Using sr As IO.StreamReader = New IO.StreamReader("text.dll")
For i As Integer = 0 To 15
trans(i).english = sr.ReadLine
trans(i).arabic = sr.ReadLine
Next
For i As Integer = 1 To 15
For j As Integer = 1 To 16 - i
If trans(j - 1).english > trans(j).english Then
temp = trans(j - 1)
trans(j - 1) = trans(j)
trans(j) = temp
End If
Next
Next
Do While (True)
Dim line As String = sr.ReadLine
If line Is Nothing Then
Exit Do
End If
Dim words As String() = line.Split("|")
Dim word As String
For Each word In words
If word = TextBox1.Text Then
TextBox2.Text = words(+1)
End If
Next
Loop
End Using
danyalempire 0 Newbie Poster
danyalempire 0 Newbie Poster
Reverend Jim 4,968 Hi, I'm Jim, one of DaniWeb's moderators. Moderator Featured Poster
danyalempire 0 Newbie Poster
ddanbe 2,724 Professional Procrastinator Featured Poster
danyalempire 0 Newbie Poster
ddanbe 2,724 Professional Procrastinator Featured Poster
Reverend Jim 4,968 Hi, I'm Jim, one of DaniWeb's moderators. Moderator Featured Poster
ddanbe commented: LOL :) +15
ddanbe 2,724 Professional Procrastinator Featured Poster
danyalempire 0 Newbie Poster
danyalempire 0 Newbie Poster
Reverend Jim 4,968 Hi, I'm Jim, one of DaniWeb's moderators. Moderator Featured Poster
ddanbe 2,724 Professional Procrastinator Featured Poster
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.