когда я пытаюсь получить строку из текстового файла, Get #nFile,
strInput возвращает квадраты, в тексте только цифры и запятые.

TIKO ЧЕЛкогда я пытаюсь получить строку из текстового файла, Get #nFile,
strInput возвращает квадраты, в тексте только цифры и запятые.
Dim strInput as string ' объявлена
да Dim strInput As String * 40

BelkinА файл как открываешь?
Хотя скорей всего это из за Dim strInput As String * 40 напиши просто
Dim strInput As String
-----------
Андрей.
просто Dim strInput As String тогда он ошибку выдает, файл открываю
Open strFile For Random Access Read As #nFile

ЧЕЛ BelkinА файл как открываешь?
Хотя скорей всего это из за Dim strInput As String * 40 напиши просто
Dim strInput As String
-----------
Андрей.
просто Dim strInput As String тогда он ошибку выдает, файл открываю
Open strFile For Random Access Read As #nFile
обманул, не ошибку а пустую строку, но в файле в это строке 37 символов

klen_так попробуй
так тоже пустая срока

Ребята не бросайте , если длинну строки не задаю выводит
если задаю выводит " "

Public Sub StartRutine()

Dim nFile As Integer
Dim strFile As String
Dim strInput As String * 40
Dim nPos As Integer
Dim Metas As Variant
Dim TekPos As Integer
Dim TekTrade As Integer
Dim Operation_ As String
Dim TekTime As Integer
Dim iCountLine As Integer


Set wkshNastr = Worksheets("Настройки")
Set wkshHistory = Worksheets("History")

If wkshNastr.Cells(12, 4) = 1 Then
Interval = Now + TimeValue("00:00:20")
Application.OnTime Interval, "StartRutine"
End If

wkshNastr.Cells(13, 4) = wkshNastr.Cells(13, 4) + 1 ' потом закомменировать

TriFile = wkshNastr.Cells(3, 2)

If Trim(wkshNastr.Cells(12, 4).Value) <> "1" Then
Exit Sub
End If

LastSize = wkshNastr.Cells(41, 2)
nFile = FreeFile
strFile = wkshNastr.Cells(6, 2).Value
If LastSize > 0 Then
If LastSize < FileLen(strFile) Then
LastSize = FileLen(strFile)
wkshNastr.Cells(41, 2) = LastSize
Else
Exit Sub
End If
Else
LastSize = FileLen(strFile)
End If
'это о что было до прочтения текущего файла лонг/шорт
LastPos = wkshNastr.Cells(5, 7).Value

Open strFile For Input As #nFile
iCountLine = UBound(Split(Input(LOF(nFile), #nFile), vbNewLine)) - 1
Close #nFile

Open strFile For Random Access Read As #nFile 'Len = 40


Seek #nFile, iCountLine
'Получить запись с заданным кодом
Get #nFile, , strInput

If Len(strInput) > 0 Then
Metas = GetArgument(strInput)
wkshNastr.Cells(5, 4).Value = Metas(1)
wkshNastr.Cells(5, 5).Value = Metas(2)
wkshNastr.Cells(5, 6).Value = Metas(4)
wkshNastr.Cells(5, 7).Value = Metas(5)
End If

Вот и сам файл

BelkinВот так


-----------
Андрей.
предлагаешь мне циклом пробежать по всем строкам?
так конечно будет работать, у меня так было, но это долго, и критично для моей проги.

мне нужна, только последняя строка файла

Belkin ЧЕЛмне нужна, только последняя строка файла
Обрати внимание, вто в твоем файле как раз 2 или 3 строки пустые!!!
Как ты увидел что они пустые?
этот файл открывал в блокноте и FAR не вижу пустых строк.
Сейчас ручками написал iCountLine=15, он прочитал кусок 49й и 50й строки, короче я вообще не врубаюсь, видимо как то надо цикл ускорять

Belkin ЧЕЛмне нужна, только последняя строка файла
Обрати внимание, вто в твоем файле как раз 2 или 3 строки пустые!!!
Спасибо тебе , большое что время потратил, короче буду читать весь файл в переменную и там ковырять, вопрос снят