Аs - 15.14032
Ds - 23. 12830
Вi - 49.234890
S - 32.35248
...
И так далее в том же духе примерно 90 строк.
У меня есть следующий код:
- Код: Выделить всё
Private Sub ButtonsClicks(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button10.Click, Button11.Click, Button12.Click, Button13.Click, Button14.Click, Button15.Click, Button16.Click, Button17.Click, Button18.Click, Button19.Click, Button20.Click, _
Button21.Click, Button22.Click, Button23.Click, Button24.Click, Button25.Click, Button26.Click, Button27.Click, Button28.Click, Button29.Click, Button30.Click, Button31.Click, Button32.Click, Button33.Click, Button34.Click, Button35.Click, Button36.Click, Button37.Click, Button38.Click, Button39.Click, Button40.Click, _
Button41.Click, Button42.Click, Button43.Click, Button44.Click, Button45.Click, Button46.Click, Button47.Click, Button48.Click, Button49.Click, Button50.Click, Button51.Click, Button52.Click, Button53.Click, Button54.Click, Button55.Click, Button56.Click, Button57.Click, Button58.Click, Button59.Click, Button60.Click, _
Button61.Click, Button62.Click, Button63.Click, Button64.Click, Button65.Click, Button66.Click, Button67.Click, Button68.Click, Button69.Click, Button70.Click, Button71.Click, Button72.Click, Button73.Click, Button74.Click, Button75.Click, Button76.Click, Button77.Click, Button78.Click, Button79.Click, Button80.Click, _
Button81.Click, Button82.Click, Button83.Click, Button84.Click, Button85.Click, Button86.Click, Button87.Click, Button88.Click, Button89.Click, Button90.Click, Button91.Click, Button92.Click, Button93.Click, Button94.Click, Button95.Click, Button96.Click, Button97.Click, Button98.Click, Button99.Click, Button100.Click, _
Button101.Click, Button102.Click, Button103.Click
Dim oAtMass As System.IO.StreamReader, owAtMass As System.IO.StreamWriter
Dim objBut As Button
Dim str1, str2, str3, str4, str5, str6 As String
objBut = sender
objBut.Text = str3
If System.IO.File.Exists("Разное\AtMass.txt") Then
oAtMass = System.IO.File.OpenText("Разное\AtMass.txt")
str1 = oAtMass.ReadLine()
str2 = str1.Substring(0, 2)
str2.TrimEnd(" ")
If String.Equals(str2, str3) Then
str1.Substring(5)
rtxtN.Text = str4
rtxtN.Text = str4 & str1
Else
End If
Else
MessageBox.Show("К сожалению файл не найден.", "Ошибка", _
MessageBoxButtons.OK, MessageBoxIcon.Error, _
MessageBoxDefaultButton.Button1)
End If
End Sub
Загвоздка в том, что если str2 b str3 не равны, то надо читать следующую строку. А как это сделать я не знаю. Есть вариант, что надо удалить первую строку и вписать ее в конец файла, но опять же как
Подскажите пожалуйста.
Спасибо!
Я конечно мазохист но не настолько.
