Форум
Написать нам
  • Страница 1 из 1
  • 1
Модератор форума: as-master  
Форум MMB » Всё о программе Multimedia Builder » Общие вопросы по MMB » Сохранение в текстовый файл (вопросы по проектам на сайте)
Сохранение в текстовый файл
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, Доброе время Суток!!

А остальные левые здесь? smile

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)
А остальные левые здесь?

Ну и что ж - обратился человек ко мне, потому-что именно я
автор тех проектов. А ты уже обиделся? smile

Quote (Yuriy)
научитесь наконец пользовать тегами code!

А вот лично мне это не нравится! Зачем навязывать всем то,
что устравивает лично тебя? Например, я очень плохо вижу мелкие буквы,
которые образуются после применения тега code.

Ну, а что ответил на вопрос по существу - так за то спасибо smile
Я бы только еще добавил, что после добавления всяких ФИО придется
принимать дополнительные меры по извлечению из файла нужных
переменных, чтобы записывать их в поля эдитбокса без всяких ФИО.
Так что, если появится такая необходимость, мы тут ответим, как это сделать.

 
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)
Ну и что ж - обратился человек ко мне, потому-что именно яавтор тех проектов. А ты уже обиделся?

С чего бы? smile

Quote (dronet)
Спасипо хоть за это!

А причём тут "хоть"? Ответил на все вопросы, хоть.



Вечная память Андрею Сергееву!
 
as-masterДата: Четверг, 22 Марта 2007, 21:02 | Сообщение # 6
Группа: Удаленные





Quote (dronet)
Ведь не хорошо получитса - прога моя а написали её все поклонники MMB!!

Эх, дружище! По сути дела все наши проги ТОЖЕ написал за нас заранее Роман Воска, автор Multimedia Builder smile
И мощный инструмент нам в руки дал, и кучу примеров работы с ним. Что ж теперь...

По-любому, твоя программа - это все-таки твоя программа. Ну, помогли добрые люди, что ж с того? Нам всем кто-то когда-то в чем-то помогал :)

 
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 и будет всё чётко, в виде таблицы, как и надо.



Вечная память Андрею Сергееву!
 
Форум MMB » Всё о программе Multimedia Builder » Общие вопросы по MMB » Сохранение в текстовый файл (вопросы по проектам на сайте)
  • Страница 1 из 1
  • 1
Поиск: