Перевод символов из .txt в табл. с числами

[_Александр_]

Datalogger на mega128 создает на SD текстовый файл и записывает в него результаты 8 разр. АЦП.
Имею файл с последовательностью символов и пока не знаю, как механизировать перевод символов в коды ASCII (желательно в access или excel). Кто знает, подскажите пожалуйста.

[nerozero]

самое простое создавать csv файл. csv - comma-separated values.
самый простой способ разделять столбцы - запятыми, строки - "\r\n" символами.
Excel понимает как таблицу без всяких выкрутасов.

[vasia1981]

Если речь об одном файле, то в Экселе (2003 Рус) есть функция КОДСИМВ(Текст). Может быть поможет
Неплохо бы знать структуру файла. Какие разделители хотя бы (пробел, точка с запятой, табуляция или вообще без них). Тогда для полной автоматизации можно и VBA приспособить. Но это имеет смысл, если файлов много.

[_Александр_]

Последовательность не содержит разделителей. Если будет несколько десятков тысяч символов, как их разделить? Желательно переписать символы в виде их ASCII кодов в таблицу access с единственным полем, в котором будет записано по одному коду.

[vasia1981]

Могу привести код для VBA в Экселе. С Access'ом близких дел не имел.
Букав многа, потому что подробно
Допустим у тебя есть файл D:\1111.txt, который содержит последовательность символов, ничем не разделённых. Тогда ввести в Эксель с преобразованием их можно так:

Private Sub CommandButton1_Click()
Dim s1 As String 'здесь храним очередную строку из файла
Dim i As Integer 'счётчик (символов в строке)
Dim k As Long 'счётчик (строк в Экселе)
Dim strCellName As String
'Открываем для чтения файл d:\1111.txt
Open "d:\1111.txt" For Input As #1
'Устанавливаем номер первой строки
k = 1
'Читаем построчно, пока не достигнем конца файла (EOF - EndOfFile)
Do While Not EOF(1)
'Читаем очередную строку
Line Input #1, s1
'Перебираем поочерёдно символы в строке
For i = 1 To Len(s1)
strCellName = "A" & k 'ссылка на очередную ячейку в столбце А
Range(strCellName).Select
'Пишем в ячейку ASCII код очередного символа
ActiveCell.FormulaR1C1 = Asc(Mid(s1, i, 1))
k = k + 1
Next i
Loop
Close #1
End Sub

Для этого:
1. Создадим новый файл (книгу) в экселе.
2. Правый клик на панели инструментов в Экселе ---› Отметить галочкой (вывести) панель Visual Basic.
3. В этой панели сначала ткнуть кнопку Элементы управления и в открывшейся панели Элементы управления ткнуть Кнопку (так и подписано Кнопка при наведении курсора в русской версии). Теперь нарисовать на листе прямоугольник Кнопки. Т.е. просто нужно добавить кнопку на лист. Называться должна CommandButton1. В любое место листа, лучше сверху - легче искать, и лучше не загораживать столбец А.
4.Затем входим в режим конструктора (если он уже не включен по умолчанию, для проверки почитать всплывающую подсказку под курсором): На панели Visual Basic тыкаем кнопку Режим конструктора.
Когда находимся в режиме конструктора созданная нами кнопка не нажимается. Зато перетаскивается и по двойному клику на ней левой кнопкой мы попадаем в редактор Visual Basic в соответствующий раздел. В этот раздел и вставляем приведенный выше код, скопипастив его целиком.

Всё. Теперь можно выключить режим конструктора и ткнуть созданную кнопку.
Работает медленно, согласен, но это для первого приближения Наверняка скоро тебе тут приведут более грамотный способ.
Тем более теперь ты владеешь VBA и сможешь сам кое-что улучшить.

[_Александр_]

Все очень понятно, большое спасибо.

[Slava-martyn]

Вот например:

абыр1;абыр2;абыр3
абыр4;;абыр6
1;7;7;7;9;9;9

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

[bigmal]

Интересно, а как автор будет записывать в текстовый файл символы с кодами от 00 до 20 (hex-число). В текстовом файле такие символы "ведут" себя несколько иначе. Тот же символ EOF в примере vasia1981 может "попасться" в середине файла, а программа поймет, что уже конец файла и прекратит обход строк файла.

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

[jtp]

ток нужен фрагмент текстового файла

Полностью согласен. ТС надо было в первом же сообщении выложить пример файла и
то что он от него хочет

[_Александр_]

В файле результаты 8 разрядных АЦП. Данные необходимо представить в единственном поле таблицы access для хранения и анализа. Худший вариант - в одном столбце excel. За большой период времени данных может быть до 2GB.