Поиск
... "
Do While Not objDeviceOutput.AtEndOfStream
ReDim Preserve arrDeviceID(i) 'pull ... .StdOut
Do While Not objLabelOut.AtEndOfStream ' Parse
strTemp = objLabelOut.ReadLine
intPosition ... .Stdout
Do While Not objTemperatureOutput.AtEndOfStream
strTemp = objTemperatureOutput.ReadLine
strTemp = Round ... 1
Do While Not objTemperatureOutput.AtEndOfStream
strTemp = objTemperatureOutput.ReadLine
strTemp = Round ...
Изменен: 28.04.2017
Читать сообщение на форуме или сайте. ... .OpenAsTextStream(1)
While Not TextStream.AtEndOfStream
sLine = TextStream.ReadLine
If InStr ... & vbCrLf
Do While Not TextStream.AtEndOfStream
Str = Str & TextStream.ReadLine & vbCrLf ... = 0
Do While Not ts.AtEndOfStream
sLine = ts.ReadLine
If InStr ...
Изменен: 23.05.2015
Читать сообщение на форуме или сайте.Автор: KuklP. Можно поробовать так:
У меня ХР, проверить не могу
Public Sub www()
Set WshShell = CreateObject("WScript.Shell")
Set WshExec = WshShell.Exec("cmd /c ver")
Set TextStream = WshExec.StdOut
Strd = vbNullString
While Not TextStream.AtEndOfStream
Strd = Strd & Trim(TextStream.ReadLine()) & vbCrLf
Wend
MsgBox Application.Clean(Strd)
End Sub
Изменен: 16.04.2011
Читать сообщение на форуме или сайте.