Чтение строк - VB
Формулировка задачи:
Имеем к примеру файл, по App.Path & "\File.txt"
Теперь, таких строк N количество. Если к примеру выбрали Eminem - You Dont Know тогда строка которая связана с Eminem - You Dont Know, а именно D:\Music\1.MP3 должна быть выведена в Label1, если Eminem - Space Bound, то соответственно D:\Music\2.MP3 в Label1.Caption названия: Eminem - You Dont Know выводится в листбокс, дальше все происходит по нажатию на запись листе.
В базе данных, было бы просто:
В файле:
Eminem - You Dont Know
D:\Music\1.MP3
Eminem - Space Bound
D:\Music\2.MP3
ПОМОГИТЕ ! ! ! !
ПОМОГ GAW! СПАСИБО!
Решение задачи: «Чтение строк»
textual
Листинг программы
Public Class Form1 Private Declare Function GetInputState Lib "user32" () As Long Dim MyText$, Serch_Text$ Dim F%, NF$ Dim pr$ Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click NF = "D:\1.txt" Serch_Text = ListBox1.Text F = FreeFile() FileOpen(F, NF, OpenMode.Input) Do Until EOF(F) MyText = LineInput(F) If MyText = Serch_Text Then MyText = LineInput(F) MsgBox(MyText$) Exit Do End If Loop FileClose() End Sub End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д