Прошу помощи - консольная утилита - VB
Формулировка задачи:
Уважаемые знатоки. Помогите пожалуйста в написании консольной утилиты
1. Утилита не должна делать окон
2. Должна вызываться из командной строки.
3. Как входящие параметры - должна принимать два полных пути к фалам
Путь1 - где находиться и как называется исходный файл
Путь2 - где находиться и как будет называться выходящий файл
Кроме того в папке с программой будут находиться 2 файла : File1.txt и File2.txt
Программа должна делать следующее действие : Брать текстовый файл по Путь1, находить в нем текст "вставлять после этой строки, где найдено "вставлять после этой строки, где найдено "
Полученный модифицированный файл уложить по пути и с именем Путь2.
Прошу Вас Помочь написать это, так как в VB, а тем более в консоли я ноль. Немного разбираюсь в VBA.
С уважением BETEPON
---------------------------
Ну вот собственно и ВСЕ.
Подпись:Смерть
1. Утилита не должна делать окон
2. Должна вызываться из командной строки.
3. Как входящие параметры - должна принимать два полных пути к фалам
Путь1 - где находиться и как называется исходный файл
Путь2 - где находиться и как будет называться выходящий файл
Кроме того в папке с программой будут находиться 2 файла : File1.txt и File2.txt
Программа должна делать следующее действие : Брать текстовый файл по Путь1, находить в нем текст "вставлять после этой строки, где найдено "вставлять после этой строки, где найдено "
Полученный модифицированный файл уложить по пути и с именем Путь2.
Прошу Вас Помочь написать это, так как в VB, а тем более в консоли я ноль. Немного разбираюсь в VBA.
С уважением BETEPON
---------------------------
Ну вот собственно и ВСЕ.
Подпись:Смерть
Решение задачи: «Прошу помощи - консольная утилита»
textual
Листинг программы
<font color="blue">Option</font> <font color="blue">Explicit</font> <font color="blue">Declare</font> <font color="blue">Function</font> WriteConsole Lib <font color="teal">"kernel32"</font> Alias <font color="teal">"WriteConsoleA"</font> (<font color="blue">ByVal</font> hConsoleOutput <font color="blue">As</font> <font color="blue">Long</font>, lpBuffer <font color="blue">As</font> Any, <font color="blue">ByVal</font> nNumberOfCharsToWrite <font color="blue">As</font> <font color="blue">Long</font>, lpNumberOfCharsWritten <font color="blue">As</font> <font color="blue">Long</font>, lpReserved <font color="blue">As</font> Any) <font color="blue">As</font> <font color="blue">Long</font> <font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> GetStdHandle Lib <font color="teal">"kernel32"</font> (<font color="blue">ByVal</font> nStdHandle <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font> <font color="blue">Private</font> <font color="blue">Const</font> STD_OUTPUT_HANDLE = -<font color="darkblue"><b>11</b></font>& <font color="blue">Private</font> hnd <font color="blue">As</font> <font color="blue">Long</font> <font color="blue">Public</font> <font color="blue">Function</font> WriteCon(s <font color="blue">As</font> <font color="blue">String</font>) <font color="blue">Dim</font> result <font color="blue">As</font> <font color="blue">Long</font> <font color="blue">If</font> hnd = <font color="darkblue"><b>0</b></font> <font color="blue">Then</font> hnd = GetStdHandle(STD_OUTPUT_HANDLE) WriteConsole hnd, <font color="blue">ByVal</font> s, Len(s), result, <font color="darkblue"><b>0</b></font> <font color="blue">End</font> <font color="blue">Function</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д