|
Сохранение в текстовый файл
|
|
| dronet | Дата: Среда, 21 Марта 2007, 21:47 | Сообщение # 1 |
Любопытный
Группа: Проверенные
Сообщений: 38
Репутация: 0
Награды: 0
Статус: Offline
| as-master, Доброе время Суток!!
У меня токой вопросс - что нужно добавить в такой сценарий: | Code | clear$ = ''
fileopt$='<SrcDir>\info.txt'
RV=StrToFile(fileopt$,clear$,FALSE,FALSE)
RV=StrToFile(fileopt$,EditBox$,TRUE,TRUE)
RV=StrToFile(fileopt $,EditBox1$,TRUE,TRUE)
RV=StrToFile(fileopt$,EditBox2$,TRUE,TRUE)
RV=StrToFile(fileopt$,EditBox3$,TRUE,TRUE)
Message("Записано!","") |
Из проекта - 'Запись в файл сведений из эдитбокса' от as-master.
Чтобы перед фразой - к примеру 'Рабинович Абрам Моисеевич' программка сама автоматически ставила допустим слово или фразу (ФИО)
А перед фразой 'Одесса, ул.Дерибасовская, 1-1' - (Домашний адрес). ну разумеетса уже в текстовый фаил, потомучто около каждого EditBox'а уже-же ведь стоит потпись - ФИО и Домашний адрес для того чтобы знать - что написать в EditBox! Я - Надеюсь что внятно написал. Добавлено (21 Марта 2007, 21:47)
---------------------------------------------
И ешё один вопросик. Всё некак не придумать.
Из проекта - 'Копирование файлов' от as-master.
Сценарий: | Code | File1$=''
folder$=''
OpenFile("Все файлы|*.*|","")
File1$=CBK_OpenFile
Dir1$=CBK_OpenDir
Path1$ = CBK_OpenDir + CBK_OpenFile
If (File1$='') Then
Return()
End
BrowseForFolder("Укажите папку назначения","c:\")
folder$=CBK_OpenDir
If (folder$='') Then
Return()
Else
Show("Group")
ScriptTimer("Copy","200")
End
-------------------------------------и Copy скрипт
Path2$ = folder$ + '\\' + File1$
SysCommand("CopyFile","Path1$,Path2$")
Hide("Group")
Message("Скопировано!","")
|
Нужно чтобы не указывать директорию, куда копировать, А просто *указать фаил* - программка сама его копирует уже, - в записанную в скрипт - директорию!
Заранее благодарю!
Andress
|
| |
| |
| YURIY | Дата: Среда, 21 Марта 2007, 23:19 | Сообщение # 2 |
Злостный админ
Группа: Администраторы
Сообщений: 3018
Репутация: 71
Награды: 28
Статус: Offline
| | Quote (dronet) | | as-master, Доброе время Суток!! |
А остальные левые здесь?  | Quote (dronet) | | Чтобы перед фразой - к примеру 'Рабинович Абрам Моисеевич' программка сама автоматически ставила допустим слово или фразу (ФИО) |
Ну, скажем, было так: | Code | clear$ = ''
fileopt$='C:\info.txt'
RV=StrToFile(fileopt$,clear$,FALSE,FALSE)
RV=StrToFile(fileopt$,EditBox$,TRUE,TRUE)
Message("Записано!","") |
Теперь будет так: | Code | clear$ = ''
fileopt$='C:\info.txt'
EditBox$='ФИО '+EditBox$
RV=StrToFile(fileopt$,clear$,FALSE,FALSE)
RV=StrToFile(fileopt$,EditBox$,TRUE,TRUE)
Message("Записано!","") |
Обратите внимание на появившуюся 3 строку второго кода! И так для каждого EditBox'a. | Quote (dronet) | | Нужно чтобы не указывать директорию, куда копировать, А просто *указать фаил* - программка сама его копирует уже, - в записанную в скрипт - директорию! |
| Code | | SysCommand("CopyFile","Path1$,Path2$") |
Данная команда скопирует файл Path1$ в Path2$. Изучаем справку! И ещё: научитесь наконец пользовать тегами code! Всего хорошего! Не as-master.
Вечная память Андрею Сергееву!
|
| |
| |
| as-master | Дата: Четверг, 22 Марта 2007, 01:29 | Сообщение # 3 |
Группа: Удаленные
| | Quote (Yuriy) | | А остальные левые здесь? |
Ну и что ж - обратился человек ко мне, потому-что именно я
автор тех проектов. А ты уже обиделся? | Quote (Yuriy) | | научитесь наконец пользовать тегами code! |
А вот лично мне это не нравится! Зачем навязывать всем то,
что устравивает лично тебя? Например, я очень плохо вижу мелкие буквы,
которые образуются после применения тега code. Ну, а что ответил на вопрос по существу - так за то спасибо
Я бы только еще добавил, что после добавления всяких ФИО придется
принимать дополнительные меры по извлечению из файла нужных
переменных, чтобы записывать их в поля эдитбокса без всяких ФИО.
Так что, если появится такая необходимость, мы тут ответим, как это сделать.
|
| |
| |
| dronet | Дата: Четверг, 22 Марта 2007, 18:55 | Сообщение # 4 |
|
Любопытный
Группа: Проверенные
Сообщений: 38
Репутация: 0
Награды: 0
Статус: Offline
| Спасипо хоть за это!
| Quote (as-master) | Я бы только еще добавил, что после добавления всяких ФИО придется
принимать дополнительные меры по извлечению из файла нужных
переменных, чтобы записывать их в поля эдитбокса без всяких ФИО. |
А про остальные меры - я пока сам попробую, может что получитса, а если нет то я спрошу!
Ведь не хорошо получитса - прога моя а написали её все поклонники MMB!!
Andress
|
| |
| |
| YURIY | Дата: Четверг, 22 Марта 2007, 19:59 | Сообщение # 5 |
|
Злостный админ
Группа: Администраторы
Сообщений: 3018
Репутация: 71
Награды: 28
Статус: Offline
| | Quote (as-master) | | Ну и что ж - обратился человек ко мне, потому-что именно яавтор тех проектов. А ты уже обиделся? |
С чего бы? | Quote (dronet) | | Спасипо хоть за это! |
А причём тут "хоть"? Ответил на все вопросы, хоть.
Вечная память Андрею Сергееву!
|
| |
| |
| as-master | Дата: Четверг, 22 Марта 2007, 21:02 | Сообщение # 6 |
|
Группа: Удаленные
| | Quote (dronet) | | Ведь не хорошо получитса - прога моя а написали её все поклонники MMB!! |
Эх, дружище! По сути дела все наши проги ТОЖЕ написал за нас заранее Роман Воска, автор Multimedia Builder
И мощный инструмент нам в руки дал, и кучу примеров работы с ним. Что ж теперь... По-любому, твоя программа - это все-таки твоя программа. Ну, помогли добрые люди, что ж с того? Нам всем кто-то когда-то в чем-то помогал :)
|
| |
| |
| dronet | Дата: Суббота, 24 Марта 2007, 15:20 | Сообщение # 7 |
|
Любопытный
Группа: Проверенные
Сообщений: 38
Репутация: 0
Награды: 0
Статус: Offline
| Да вот всётаки хочетса самому.
Надо же чему нибуть учитса в нашей жизни !
Andress
|
| |
| |
| as-master | Дата: Суббота, 24 Марта 2007, 15:27 | Сообщение # 8 |
|
Группа: Удаленные
| | Quote (dronet) | | Да вот всётаки хочетса самому. |
Не хочетса, а хочецца,
Не учитса, у учицца :)
|
| |
| |
| Oleg_88 | Дата: Понедельник, 02 Января 2012, 00:40 | Сообщение # 9 |
|
Любопытный
Группа: Пользователи
Сообщений: 33
Репутация: 0
Награды: 0
Статус: Offline
| Здравствуйте, сохраняю данные из проекта в блокнот, но получается не совсем красиво,
1. 2+2=4 ок 00:00:08
2. 11+11=11 плохо 00:00:08
хотелось бы как бы столбиками, а то читать не удобно, можно ли в нужный момент и в нужном месте пару пробелов убрать или добавить? Возможно вообще это?
|
| |
| |
| YURIY | Дата: Вторник, 03 Января 2012, 20:42 | Сообщение # 10 |
|
Злостный админ
Группа: Администраторы
Сообщений: 3018
Репутация: 71
Награды: 28
Статус: Offline
| Quote (Oleg_88) можно ли в нужный момент и в нужном месте пару пробелов убрать или добавить?
Можно, разрешаю  Не понял только, в чём суть проблемы вообще? Информации очень мало.
Вечная память Андрею Сергееву!
|
| |
| |
| Oleg_88 | Дата: Вторник, 03 Января 2012, 22:19 | Сообщение # 11 |
|
Любопытный
Группа: Пользователи
Сообщений: 33
Репутация: 0
Награды: 0
Статус: Offline
| :-) , В бокноте записываются данные, по сути одинаковые, по содержанию разные, вот:
Quote (Oleg_88) 1. 2+2=4 ок 00:00:08
2. 11+11=11 плохо 00:00:08
3. 111+111=111 плохо 00:00:08
хотел вот так, пробел=точка
1. 2+2=4...............ок......00:00:08
2. 11+11=11.......плохо..00:06:18
3. 111+111=111.плохо..00:12:56, (что то пробелы не пишет).
Наверно надо как то считать символы в строке, или...даже не знаю из какой это темы чтоб в справке полистать.Добавлено (03 Январь 2012, 22:19)
---------------------------------------------
чё то всеравно не ровно получилось:-)
|
| |
| |
| YURIY | Дата: Среда, 04 Января 2012, 20:44 | Сообщение # 12 |
|
Злостный админ
Группа: Администраторы
Сообщений: 3018
Репутация: 71
Награды: 28
Статус: Offline
| Я прекрасно понял, что Вы хотите выровнять данные в 3 столбика. Я не это уточнял - что именно хотите от меня узнать? Нужно автоматические просчитать пробелы везде с учётом самой длинной строки? Или что нужно вообще? И откуда эти данные формируются для записи?
Вечная память Андрею Сергееву!
|
| |
| |
| Oleg_88 | Дата: Пятница, 06 Января 2012, 00:45 | Сообщение # 13 |
|
Любопытный
Группа: Пользователи
Сообщений: 33
Репутация: 0
Награды: 0
Статус: Offline
| Quote (YURIY) И откуда эти данные формируются для записи?
Каждая цифра и слово это переменные, время тоже записывается из трёх переменных.
здесь я собираю всё в
gotov$=numstr$+'.'+' '+LottoNumber1$+' '+'+'+' '+LottoNumber2$+' '+'=' + ' '+otvet$+' '+ok$+' '+t_hour$+':'+t_min$+':'+t_sec$[/code]
Потом записываем
[/code] RetVal=StrToFile(file$,gotov$,TRUE,TRUE)[/code]
Пытался подправить пробелами +' '+, но постоянно меняется длинна строки по отношению к заголовку (шапке), и так записывается срока под строкой. Не знаю, возможно ли так, например numstr$- должна иметь место для трёх символов и записываться от первого символа в строке,
LottoNumber1$-должна иметь место для четырёх символов и записываться от восьмого символа в строчке и т.д. Т.е каждая переменная знала бы с какого места в строке нужно записаться. А как это должно быть, честно даже не представлю.Добавлено (05 Январь 2012, 01:42)
---------------------------------------------
Думаю использовать StrIns, но что то много писанины получается, если для девяти столбиков делать. Добавлено (06 Январь 2012, 00:45)
---------------------------------------------
Всё не то, ничего не получается. Если можете дайте ориентир, что делать.
|
| |
| |
| YURIY | Дата: Четверг, 12 Января 2012, 22:04 | Сообщение # 14 |
|
Злостный админ
Группа: Администраторы
Сообщений: 3018
Репутация: 71
Награды: 28
Статус: Offline
| В общем, мы с другим MMB-шником подумали тут, покрутили варианты - пробелами и знаком табуляции автоматически выравнивать это всё не выйдет. Ровно не будет. Вручную только если подбирать - получится, а просчитать - нет.
Я лично порекомендовал бы использовать формат CSV. Сохранили данные в файл с таким расширением, между столбцами в тексте ставите знак ";". После запуска файла он откроется через Excel и будет всё чётко, в виде таблицы, как и надо.
Вечная память Андрею Сергееву!
|
| |
| |
Все права защищены
