Dim sSourceFile, sLine As String Dim a As String sSourceFile = "E:\hash\WindowsApplication1\WindowsApplication1\bin\a.txt" FileOpen(100, sSourceFile, OpenMode.Input, OpenAccess.Read) sLine = LineInput(100) a = Mid(sLine, 1) ListBox1.Items.Add(a) While Not EOF(100) sLine = LineInput(100) a = Mid(sLine, 1) ListBox1.Items.Add(a) End While FileClose(100) IP_Server = ListBox1.Items(0) server = ListBox1.Items(1) DB = ListBox1.Items(2) User_Server = ListBox1.Items(3) Pass = ListBox1.Items(4)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)