Вопросы по AVC.exe

[Lamer_Pavel]

Нашел я консоль AVC.exe в комплектации Xilisoft Video Converter,отловил функции,например:

-@ -y -i 1.mp3 -f amr -ss 0 -bt 60 -acodec amr_nb -ab 48 -ar 8000 -ac 1(mono) 1.amr

В ходе конвертаризации AVC.exe мне пишет:

time=10.3 bitrate=210kbit/s
Хочу собрать конвертёр AMR с помощью DosOutput
Как мне оставить только "10.3",а все остальное удалить?
[/syntax][/syntax]

[Хакер]

Lamer_Pavel
Я нашёл программу, которая моделирует поведение генератора во время выбега ротора турбины.

Значит, выставляю мощность СФКРЭ = 750MW.

Проблема в том, что параметр SCML не ставится больше 3

Может мне поможет утилита iacmc0247.exe ?
[/syntax][/syntax]

[Cytron]

Lamer_Pavel
Отфильтруй с помощью Instr
Не совсем понял вопрос...

[Lamer_Pavel]

Cytron,я не очень понял,как пользоваться Instr,но вспомнил и сделал один код:

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

Private Sub convert()
Dim ins As String
Dim temp As String
temp = 0
ins = Text1.Text
For i = 1 To Len(ins)
If (Mid(ins, i, 1) <> "=") And (Mid(ins, i, 1) <> "=") Then
temp = temp + Mid(ins, i, 1)
Else
temp = ""
End If
Next i
Text2.Text = temp
End Sub

Private Sub Command1_Click()
convert
DoEvents
Text2.Text = Len(Text2.Text)
DoEvents
convert2
End Sub

Private Sub Form_Load()
convert
DoEvents
Text2.Text = Len(Text2.Text)
DoEvents
convert2
End Sub

Private Sub convert2()
Dim ins As String
Dim temp As String
temp = ""
ins = Left(Text1.Text, Len(Text1.Text) - CInt(Text2.Text) - 9)
For i = 1 To Len(ins)
If (Mid(ins, i, 1) <> "=") And (Mid(ins, i, 1) <> "=") Then
temp = temp + Mid(ins, i, 1)
Else
temp = ""
End If
Next i
Text2.Text = temp
End Sub
'Для примера нужно 2 текстовах поля(Text1 и Text2) и кнопка(Сommand1)


Кто-нибудь знает , как в DosOutput сделать так,чтобы прога не висла в момент выполнения консоли(т.е вводишь команду в строку и пока она не обработается,приложение виснет,если его перетащить и т.п)

[Cytron]

Запустить еще один thread.

PS

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

If (Mid(ins, i, 1) <> "=") And (Mid(ins, i, 1) <> "=") Then

Вцытаты