Чтение строк - 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 выводится в листбокс, дальше все происходит по нажатию на запись листе. В базе данных, было бы просто:
ПОМОГИТЕ ! ! ! !
ПОМОГ 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы