Прошу помощи - консольная утилита - VB

Узнай цену своей работы

Формулировка задачи:

Уважаемые знатоки. Помогите пожалуйста в написании консольной утилиты
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>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.222 из 5