- Код: Выделить всё
Dim Opt(7) As String
MyFile = FreeFile
Open (App.Path & "\Text.txt") For Input As #MyFile
Do Until EOF(MyFile)
Line Input #MyFile, Opt()
Loop
Close #MyFile
Подскажите, что нужно исправить?
Dim Opt(7) As String
MyFile = FreeFile
Open (App.Path & "\Text.txt") For Input As #MyFile
Do Until EOF(MyFile)
Line Input #MyFile, Opt()
Loop
Close #MyFile
Dim Opt(7) As String
MyFile = FreeFile
Open (App.Path & "\Text.txt") For Input As #MyFile
Do Until EOF(MyFile)
Line Input #MyFile, Opt(i)
i=i+1
Loop
Close #MyFile
Dim Opt() As String
Open (App.Path & "\Text.txt") For binary As #MyFile
put #MyFile, , tmp
opt = split(tmp)
Close #MyFile
Денис писал(а):
- Код: Выделить всё
Dim Opt() As String
Open (App.Path & "\Text.txt") For binary As #MyFile
put #MyFile, , tmp
opt = split(tmp)
Close #MyFile
Dim Opt() As String
Dim tmp As String
tmp=String(Filelen(App.Path & "\Text.txt"), " ")
Open (App.Path & "\Text.txt") For binary As #MyFile
Get #MyFile, , tmp
opt = split(tmp, vbNewLine)
Close #MyFile
Const sFile As String = "C:/log.txt"
Dim Opt() As String
Dim tmp As String
Dim MyFile As Integer
MyFile = FreeFile
tmp = String(FileLen(sFile), " ")
Open sFile For Binary As #MyFile
Get #MyFile, , tmp
Opt = Split(tmp, vbNewLine)
Close #MyFile
MsgBox Opt(0)
Dim s As String
Dim Opt() As String
MyFile = FreeFile
Open (App.Path & "\Options.txt") For Input As #MyFile
s = Input$(LOF(1), 1)
Close #MyFile
arrOpt = Split(s, vbCrLf)
Сейчас этот форум просматривают: AhrefsBot, PetalBot, SemrushBot и гости: 10