|
|
Разумеется, не символов, а полей.
После замены табов на семиколоны получается стандартный CSV-файл, он прекрасно открывается Эксцэлем. И при просто просмотре ";" более видимы, посчитать можно.
Набираете в командной строке имя программы и через пробел имя вашего файла. Получится файл 11111111, добавьте ему расширение csv вручную - торопился, надо было сразу забить в прогу.
Только недостающие поля у меня забиваются не нулями, а именно "пустыми местами" (в эксцэле будут пустые клетки). Можно и нули сделать. |
|
|
|
Дык... запросто. Только найдете, чем компиллировать?
Вообще, если убрать вывод на экран, должно и под визуалбейсиком скомпиллироваться... Да, + a$ тоже поменять на & a$ if command$ = "" then ?:?"Задайте имя файла параметром. Выход - в файл 11111111.csv":delay 5:end
?
open command$ for input as #1
open "11111111.csv" for output as #2
s=0
while not eof(1)
line input #1,a$
for n=1 to len(a$)
if mid$(a$,n,1)=chr$(9) then mid$(a$,n,1)=";"
next
v=0
for n=1 to len(a$)
if mid$(a$,n,1)=";" then v=v+1
next if v255 then a$=string$(255-v,";")+a$
print#2,a$
s=s+1
locate 24,1
?"Сделано ";s;" строк";
wend |
|
|
|
AN1440: не нулями, а именно "пустыми местами"
Думаю, важно - в каком формате окажутся пустые ячейки таблицы.
Несоответствие форматов ячеек в строках/столбцах усложнит вычисления, иже такие понадобятся.
Ведь не зря человек в эксель грузит данные. |
|
, а исходничек можно получить? чтоб Вас не напрягать, сам расширение попробую поправить