Как получить из кода исполняемую программу?

omega · Сообщение **omega** » 28 авг 2011, 08:44

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

Вот мне привели код:

S = "838352174774746183833831674774" 
S1 = ""
For i = 1 To Len(S)
 c = Mid(S, i, 1)
 S1 = S1 + chr( (asc(c)-48-1+2) mod 8 +1+48 )
Next 
msgbox(S1)

Далее сказали, что надо этот код положить в файл с расширением vbs и запустить.
Но я без понятия, что такое расширение vbs, и как положить этот код в файл с таким расширением.

Поясню, что должна делать программа. Символьную переменную S программа должна читать из входного файла, например, inp.txt.
Полученную символьную переменную S1 программа должна записывать в выходной файл, например, a1.txt.
Всё, больше ничего не надо. В программе записано, как повернуть маршрут, заданный символьной переменной S, на 90 градусов.

AV_77 · Сообщение **AV_77** » 28 авг 2011, 08:48

omega писал(а):Source of the post
Но я без понятия, что такое расширение vbs

[url=http://yandex.ru/yandsearch?text=vbs&c...9593&lr=213]http://yandex.ru/yandsearch?text=vbs&c...9593&lr=213[/url]
первая ссылка.

omega писал(а):Source of the post
и как положить этот код в файл с таким расширением.

В блокноте вставляете это код и сохраняете его в файл с расширением vbs.

omega · Сообщение **omega** » 28 авг 2011, 08:57

Спасибо, это сделала. Скопировала код в Блокнот и сохранила в файл data.vbs. Запустила этот файл, у меня прямо на экране монитора появилось окошечко, в котором, как я поняла, записан результат работы программы - символьная переменная S1.

Теперь скажите, пожалуйста, что надо добавить в этот код, чтобы программа читала символьную переменную S из входного файла и записывала символьную переменную S1 в выходной файл. Сейчас она этого не делает. Она просто обработала символьную переменную S, которая записана в коде.

Я пишу программы не в VB, а в QBASIC. В этом языке я знаю, как записывать чтение из входного файла и запись в выходной файл. В VB должно быть тоже что-то подобное.

Ну, не хочется мне из-за разовой программки искать в Интернете описание языка VB

pokk · Сообщение **pokk** » 28 авг 2011, 09:20

Ну, не хочется мне из-за разовой программки искать в Интернете описание языка VB

ну тогда код готовой програмки

Теперь скажите, пожалуйста, что надо добавить в этот код, чтобы программа читала символьную переменную S из входного файла и записывала символьную переменную S1 в выходной файл. Сейчас она этого не делает. Она просто обработала символьную переменную S, которая записана в коде.

т.е вы хотите что бы переменная S1 находилось в отдельном файле ?

я вот отыскал пока как сделать запись в файл (C:\1\file.txt)

Код: Выбрать все

S = "838352174774746183833831674774" 
S1 = ""
For i = 1 To Len(S)
 c = Mid(S, i, 1)
 S1 = S1 + chr( (asc(c)-48-1+2) mod 8 +1+48 )
Next

set FSO=CreateObject("Scripting.FileSystemObject")
set file =FSO.CreateTextFile("C:\1\file.txt")
file.WriteLine(s1)
file.Close 

msgbox(S1)

pokk · Сообщение **pokk** » 28 авг 2011, 10:10

вот всё нашёл
полный вариант

Код: Выбрать все

Set FSO = CreateObject("Scripting.FileSystemObject")
Set t_file = FSO.OpenTextFile("C:\1\file.txt", 1)
 S = t_file.ReadAll
 t_file.Close 



S1 = ""
For i = 1 To Len(S)
 c = Mid(S, i, 1)
 S1 = S1 + chr( (asc(c)-48-1+2) mod 8 +1+48 )
Next
msgbox(S1)


set FSO=CreateObject("Scripting.FileSystemObject")
set file =FSO.CreateTextFile("C:\1\a1.txt")
file.WriteLine(s1)
file.Close

omega · Сообщение **omega** » 28 авг 2011, 10:25

pokk писал(а):Source of the post
т.е вы хотите что бы переменная S1 находилось в отдельном файле ?

Ну да Мне же её дальше надо обрабатывать, другой программой.
А она у меня на экране монитора появляется в окошечке, и даже скопировать её из этого окошечка не могу

я вот отыскал пока как сделать запись в файл (C:\1\file.txt)
Код: Выбрать все
S = "838352174774746183833831674774" S1 = "" For i = 1 To Len(S) c = Mid(S, i, 1) S1 = S1 + chr( (asc(c)-48-1+2) mod 8 +1+48 ) Next set FSO=CreateObject("Scripting.FileSystemObject") set file =FSO.CreateTextFile("C:\1\file.txt") file.WriteLine(s1) file.Close msgbox(S1)

О! Это уже хорошо. Запись есть. Ну, а чтение должно быть как-то аналогично.
Я сечас этот код попробую.

У меня ваш предыдущий вариант (только с записью) не сработал, выдалась такая ошибка:

omega · Сообщение **omega** » 28 авг 2011, 10:35

И полный вариант тоже не сработал:

Путь не найден. Правильно. А откуда она будет брать входной файл? Если я запишу этот файл, например, в папке "Мои документы", она его найдёт?

Dragon27 · Сообщение **Dragon27** » 28 авг 2011, 10:38

У меня отработал. Вы уверены, что правильно код скопировали?

А путь исправьте на свой, разумеется.

pokk · Сообщение **pokk** » 28 авг 2011, 10:48

У меня ваш предыдущий вариант (только с записью) не сработал, выдалась такая ошибка

Я VBS тоже не совсем знаю так что не могу сказать где проблема у меня всё работает.
Хотя если вы запускали мой вариант то у вас может папки 1 на диске С нету

Код: Выбрать все

Путь не найден. Правильно. А откуда она будет брать входной файл? Если я запишу этот файл, например, в папке "Мои документы", она его найдёт?

смотря где он у вас лежит
Set t_file = FSO.OpenTextFile("C:\1\file.txt", 1) вот тут измените путь до него (откуда брать чтение переменную s)

set file =FSO.CreateTextFile("C:\1\a1.txt") (в какой файл записывать)

omega · Сообщение **omega** » 28 авг 2011, 10:58

Ну, я два раза же выполнила, сначала один код (только запись была), а потом и чтение, и запись.
Оба раза выдались ошибки. Показаны ошибки. Не хочет выполняться

pokk писал(а):Source of the post
У меня ваш предыдущий вариант (только с записью) не сработал, выдалась такая ошибка

Я VBS тоже не совсем знаю так что не могу сказать где проблема у меня всё работает.
Хотя если вы запускали мой вариант то у вас может папки 1 на диске С нету

Код: Выбрать все
Путь не найден. Правильно. А откуда она будет брать входной файл? Если я запишу этот файл, например, в папке "Мои документы", она его найдёт?

смотря где он у вас лежит
Set t_file = FSO.OpenTextFile("C:\1\file.txt", 1) вот тут измените путь до него (откуда брать чтение переменную s)

set file =FSO.CreateTextFile("C:\1\a1.txt") (в какой файл записывать)

Так, сначала давайте без чтения разберёмся. Пусть только запишет результат в файл. Но и это тоже не выполняется.

Вообще по-хорошему делается исполняемая программа, в которой есть чтение из файла и запись в файл, причём эти файлы находятся в том каталоге, где находится сама исполняемая программа. И не надо морочить голову с путями.
А здесь чёрт знает что! Путь надо самой записывать. Да у меня такой путь, что замучаешься его записывать

yourdomain.com