Текст и строки

Дата: Вторник, 12 Мая 2009, 21:26 | Сообщение # 1

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

Во например есть текстовый файл в котором следующий текст:
1
9
7
2
4
3
5
10
6
11
8
1
9
6
4
7
6
11
..................и т.д
Мне нужно чтобы определённому символу,например "1" соответствовало определённое действие,запуск скрипта "1",символу "2"-скрипт"2" и т.п.
И нужно чтобы это происходило в такой последовательности в какой записаны символы в файл.Как это можно реализовать.

Дата: Вторник, 12 Мая 2009, 21:43 | Сообщение # 2

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Не вижу никакой проблемы...

Code

file$='C:\file.txt'
For i=1 To NOL(file$)
a$=StrFromFile(file$,i,1)
RunScript("a$")
Next i

Дата: Вторник, 12 Мая 2009, 21:54 | Сообщение # 3

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

И всё будет в такой последовательности в кккой записано в файл?

Дата: Вторник, 12 Мая 2009, 21:56 | Сообщение # 4

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Ну построчно считывается - значит да.

Дата: Вторник, 12 Мая 2009, 22:37 | Сообщение # 5

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

Почему то неработает,у меня в скрипте команды PlaySound("<Embedded>\0.ogg"),PlaySound("<Embedded>\1.ogg"),PlaySound("<Embedded>\2.ogg")...

Дата: Вторник, 12 Мая 2009, 22:38 | Сообщение # 6

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Телепаты в отпуске.

Я твою задачу, указанную в первом сообщении, выполнил.

Дата: Вторник, 12 Мая 2009, 22:39 | Сообщение # 7

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

Нужно же: если на первой строчке находится цифра 7,то запускается 7 скрипт,если5 то пятый,если на второй строчке1 то скрипт 1...

Дата: Вторник, 12 Мая 2009, 22:41 | Сообщение # 8

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Прежде чем писать это, посмотри что я тебе сделал.

Мне что, проект тебе накидать, чтобы доказать работоспособность?

Дата: Вторник, 12 Мая 2009, 22:44 | Сообщение # 9

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

а что тогда я не так сделал?

Прикрепления: 1472039.rar (225.2 Kb)

DEMBEL

Дата: Вторник, 12 Мая 2009, 22:45 | Сообщение # 10

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

Quote (adamfromvyazniki)

a$=StrFromFile(file$,i,1) - берем цифру из строки и кладем ее в переменную
RunScript("a$") - запускаем скрипт с именем переменной, а в ней у нас что находится? Правильно, номер строки! В чем проблемы то?

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Дата: Вторник, 12 Мая 2009, 22:48 | Сообщение # 11

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

DEMBEL,скрипт я понял,в справке прочитал к тому же,просто не работает почему то.

Дата: Вторник, 12 Мая 2009, 22:48 | Сообщение # 12

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Quote (adamfromvyazniki)

а что тогда я не так сделал?

Начнём с того, что звуки не проигрываются у тебя, а скрипты срабатывают.

DEMBEL

Дата: Вторник, 12 Мая 2009, 22:51 | Сообщение # 13

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

Чтоб зря не компостировать мозг, проект в студию со всеми файлами...
--
о, вижу его...

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Сообщение отредактировал DEMBEL - Вторник, 12 Мая 2009, 22:54

Дата: Вторник, 12 Мая 2009, 22:58 | Сообщение # 14

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

Вот

Добавлено (12 Май 2009, 22:58)
---------------------------------------------
Может ММБ не успевает проигать файлы?

Прикрепления: 3444676.rar (447.5 Kb)

Дата: Вторник, 12 Мая 2009, 23:00 | Сообщение # 15

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

adamfromvyazniki, ты вообще по-русски хорошо понимаешь?

Quote (YURIY)

звуки не проигрываются у тебя, а скрипты срабатывают.

Всё работает! Звуки воспроизводить правильно учимся!

Дата: Вторник, 12 Мая 2009, 23:01 | Сообщение # 16

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

AudioOpen("")
AudioPlay()
так что ли?

Дата: Вторник, 12 Мая 2009, 23:09 | Сообщение # 17

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Ну да.

Дата: Вторник, 12 Мая 2009, 23:13 | Сообщение # 18

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

тоже самое,невоспроизводится

Добавлено (12 Май 2009, 23:13)
---------------------------------------------
в текстовом файле написано
1
2
3
4
5
6
7
8
9
10
11

Дата: Вторник, 12 Мая 2009, 23:14 | Сообщение # 19

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Виноват. Только что проверил - твой проект отлично работает.

Просто я в наушниках сижу и звук у меня стоит на 3% всего. Не слышал. А музыку слушаю громко... Вот так.

Что теперь скажешь? Твой проект работает минимум у двоих человек, кроме тебя.

Выводы?

Дата: Вторник, 12 Мая 2009, 23:16 | Сообщение # 20

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

мистика...

Дата: Вторник, 12 Мая 2009, 23:18 | Сообщение # 21

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Паузу нужно поставить ещё, чтобы по очереди игрались, а не только один звук.

Дата: Вторник, 12 Мая 2009, 23:22 | Сообщение # 22

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

Ммм,точно,думал об этом,спасибо,если можно,то закрой тему

toizy

Дата: Вторник, 12 Мая 2009, 23:22 | Сообщение # 23

Студийная субстанция

Группа: Администраторы

Сообщений: 2309

Репутация: 29

Награды: 12

Статус: Offline

Quote (YURIY)

Выводы?

OGG Vorbis переустановить надобно...

Добавлено (12 Май 2009, 23:22)
---------------------------------------------
Они вообще в системе играют?

Жизнь оказалась не такой уж и забавной, как поначалу...

Дата: Вторник, 12 Мая 2009, 23:24 | Сообщение # 24

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

У меня всё заработало нормально

DEMBEL

Дата: Вторник, 12 Мая 2009, 23:26 | Сообщение # 25

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

И у меня все работает.

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Дата: Вторник, 12 Мая 2009, 23:27 | Сообщение # 26

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

А у меня нет.

Я лох. Признаюсь Помог и у самого не работает...

closed