Чтение строк - VB

Формулировка задачи:

Имеем к примеру файл, по App.Path & "\File.txt"В файле:
Eminem - You Dont Know D:\Music\1.MP3 Eminem - Space Bound D:\Music\2.MP3
Теперь, таких строк 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 выводится в листбокс, дальше все происходит по нажатию на запись листе. В базе данных, было бы просто:
SELECT * FROM TABLE WHERE NAME LIKE '%Eminem - You Dont Know%'
Text2.Text = RS.Fields("Путь")
ПОМОГИТЕ ! ! ! !Добавлено через 18 минут ПОМОГ GAW! СПАСИБО!
Dim MyText$, Serch_Text$
Dim F%, NF$
Private Declare Function GetInputState Lib "user32" () As Long
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = vbRed
End Sub
Private Sub Command1_Click()
NF = App.Path & "\1.txt"
Serch_Text = "2"
Dim pr$
If Dir(NF) <> "" Then
F = FreeFile
Open NF For Input As #F
Do Until EOF(F)
If GetInputState() Then DoEvents
Line Input #F, MyText
If MyText = Serch_Text Then
Label1 = MyText
Line Input #F, MyText
Label2 = MyText
Exit Do
End If
Loop
Close #F
Else
MsgBox "Not Found " & NF
End If
Command1.BackColor = &H8000000F
End Sub

Код к задаче: «Чтение строк - VB»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

7   голосов, оценка 4.286 из 5


СОХРАНИТЬ ССЫЛКУ