Командная строка в VB6?

[Mleha]

Я открываю файл для записи записываю туда что мне надо, после чего запускаю его. НО в BAT не понимает русский шрифт, а это пригодилось бы мне! Что делать?
Можно ли использовать командную строку в VB6 напрямую без BATа?

[alibek]

Ты на каком языке изъясняешься? Какое-то фраз построение нерусское у тебя, кажется мне.
Для начала, кириллица в BAT-файлах должна быть в OEM-кодировке. Используй AnsiToOEM (устаревшее) или WideCharToMultibyte.

[Mleha]

Если запустить BAT файл, в котором написан русский текст он (BAT) его не понимает!

[alibek]

Дубль 2.
"Русский" текст должен быть написан в OEM-кодировке (CP 866).

[tyomitch]

Может, Mleha всё-таки хочет узнать про функцию Command, но никак не может сформулировать свою мысль?

[Mleha]

Что за функция Command?
Можно пример, пожалуйста!

[tyomitch]

Command Function

Returns the argument portion of the command line used to launch Microsoft Visual Basic or an executable program developed with Visual Basic.

Syntax

Command

Remarks

When Visual Basic is launched from the command line, any portion of the command line that follows /cmd is passed to the program as the command-line argument. In the following example, cmdlineargs represents the argument information returned by the Command function.

VB /cmd cmdlineargs

For applications developed with Visual Basic and compiled to an .exe file, Command returns any arguments that appear after the name of the application on the command line. For example:

MyApp cmdlineargs


Command Function Example

This example uses the Command function to get the command line arguments in a function that returns them in a Variant containing an array.

Код: Выделить всё

Function GetCommandLine(Optional MaxArgs)
   'Declare variables.
   Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
   'See if MaxArgs was provided.
   If IsMissing(MaxArgs) Then MaxArgs = 10
   'Make array of the correct size.
   ReDim ArgArray(MaxArgs)
   NumArgs = 0: InArg = False
   'Get command line arguments.
   CmdLine = Command()
   CmdLnLen = Len(CmdLine)
   'Go thru command line one character
   'at a time.
   For I = 1 To CmdLnLen
      C = Mid(CmdLine, I, 1)
      'Test for space or tab.
      If (C <> " " And C <> vbTab) Then
         'Neither space nor tab.
         'Test if already in argument.
         If Not InArg Then
         'New argument begins.
         'Test for too many arguments.
            If NumArgs = MaxArgs Then Exit For
            NumArgs = NumArgs + 1
            InArg = True
         End If
         'Concatenate character to current argument.
         ArgArray(NumArgs) = ArgArray(NumArgs) & C
      Else
         'Found a space or tab.
         'Set InArg flag to False.
         InArg = False
      End If
   Next I
   'Resize array just enough to hold arguments.
   ReDim Preserve ArgArray(NumArgs)
   'Return Array in Function name.
   GetCommandLine = ArgArray()
End Function


[Mleha]

Спасибо, проверю...

[Mleha]

Проверил, не сработало. Куда записывать команду?

[tyomitch]

Project -> Properties -> Make -> Command Line Arguments

[Samrat]

rs = Shell("picc18.exe", vbNormalFocus)
За сим прощаюсь.

[xenomorph]

Глянь:

http://bbs.vbstreets.ru/download.php?id=878

[tyomitch]

А, так вот что Mleha имел в виду под командной строкой...
До меня и не дошло сразу.

[xenomorph]

Я тоже =(ж-)))))))))))))
ROTFL вообщем ))))))))))))

[Mleha]

xenomorph, спасибо за пример, все работает!