Проверка файла на соответствие формату

[AHTOXA]

Как проверить соответсвует ли файл заданному формату?

[RayShade]

Ну ты и спросил

Открыть его, прочитать из оперделенного места сигнатуру и на е основе сделать вывод, что за файл.

[AHTOXA]

Файл текстовый и имеет такую структуру:
Date пробел Time табуляция Value.
Требуется проверить будет-ли открываемый файл соответствовать данному формату.

[RayShade]

Я что то не понимаю что ты вкладываешь в слова "соответствие формату в таком случае".

[AHTOXA]

Ну имелось в виду формат структуры данных, содержащихся в некотором файле

[RayShade]

Открыть и посмотреть И что занчит вообще "формат структуры данных"? Кол-во столбцов\строк? Тогда самый просто путь - открыть в Excel и потом посмотреть сколько их получится.

[AHTOXA]

Блин, я же все понятно кажется объяснил, может и корявым языком.
А файл надо проверить до загрузки на страницу, если он не соответсвует формату, то выдать ошибку.
То есть, что-то типа того:
1) Открываем файл
2) Читаем 1 строку
3) Парсим ее

Символы в данной строке должны разделятся пробелом либо знаком табуляции

[RayShade]

Ну ты, блин и спросил. Ну тогда наверное так:

Код: Выделить всё


function matchformat(fname as string, separator as string, mustcount as long) as boolean
dim st as string
close #1
open fname for input as #1
line input #1, st
close #1
matchformat =( (len(st) - len(replace(st,separator,"",,,vbtextcompare)))=mustcount*len(separator))
end function


[AHTOXA]

Вот такой ответ я и хотел получить, а то уж думал придется бегать по строке и функцией mid вырезать символы и сравнивать их с разделителем.

И еще один вопрос, как мне знак табуляции запихать в строку?

[RayShade]

В какую то определенную позицию?

Тогда так:

Код: Выделить всё

Mid(st,mypos,1)=chr(9)


[AHTOXA]

Спасибо огромное.

[AHTOXA]

А как считать из файла определенную строку, допустим 2.

[RayShade]

Код: Выделить всё

function getlinefromfile(fname as string, byval linenum as long) as string
dim st as string
close #1
open fname for input as #1
do until linenum = 0
line input #1,st
linenum = linenum - 1
loop
getlinefromfile = st
close #1
end function

[AHTOXA]

Я имел в виду вытащить всю строку, т.е. если в ней допустим есть "," или какие другие нехорошие символы, то Input считывает строку до этого знака, а при следующем вызове после этого знака. Нужно чтобы он считывал всю строку до символа конца строки или перевода каретки.

[RayShade]

Line Input считывает до vbCrLf

[AHTOXA]

Чтобы я без тебя делал, дружище.

[RayShade]

Вот уж, право, не знаю