Сохранить результаты выполнения cmd в файл

@Anderis49 · Регистрация: 07.08.2013

Студворк — интернет-сервис помощи студентам

Всем знатокам доброго времени суток.
Мучаюсь проблемой - сохранить в файл результат выполнения команды

VB.NET
1
 Process.Start("cmd", "/k" & sdk)

Вот ее результат, Мне нужно записать это в файл.
Всем помогающим заранее большое спасибо!

I can · 21.11.2022, 17:12

Сообщение от Anderis49

Смотри моё сообщение от Сегодня, 14:50

Ты не в России что-ли? У меня такого нет. Есть в 15.50. И там лишние кавычки Inputic = """" & sdf

Сообщение от Anderis49

Это ни на что не влияет.

Очень даже влияет.

Добавлено через 1 минуту

Сообщение от Anderis49

Смотри трагикомедию

Ну там в одном пути есть пробел, в другом нет.

@Anderis49 · 21.11.2022, 17:16 **[ТС]**

Сообщение от I can

Ты не в России что-ли? У меня такого нет. Есть в 15.50. И там лишние кавычки Inputic = """" & sdf

Читай всё сообщение

Сегодня, 14:50 [ТС] Сохранить результаты выполнения cmd в файл [В закладки] [Окно ответа] 29 (permalink)
Цитата Сообщение от I can Посмотреть сообщение
nderis49, пришли свой проект, только что касается этой темы, я исправлю.
Да я его уж раз 5 тут публиковал, но для хорошего человека ещё раз приклею.

VB.NETВыделить код

Public Class Form1

Dim nfg, nmd, sdf, output, st As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Inputic = ""
With OpenFileDialog1
.InitialDirectory = nmd
.RestoreDirectory = True
.FileName = ""
.Filter = "VideoFiles|*.avi| (*.mkv*)|*.mkv| (*.mp4)|*.mp4|HTM files (*.htm)|*.htm"
.FilterIndex = 1
'.Multiselect = True
.Title = "Select Open Video Files"
End With
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
sdf = OpenFileDialog1.FileName
Inputic = """" & sdf
nfg = IO.Path.ChangeExtension(sdf, Nothing) & ".avi"
' output = """" & nfg
' myProc()
'Dim Inputic As String = "C:\tmp\V.mp3"
Dim proc As New Process
proc.StartInfo.FileName = "ffprobe"
proc.StartInfo.Arguments = "-v error -show_entries stream=width,height,bit_rate,duration """ & Inputic & """"
proc.StartInfo.CreateNoWindow = True
proc.StartInfo.RedirectStandardOutput = True
proc.StartInfo.UseShellExecute = False
proc.Start()
Application.DoEvents()
Dim thr As IO.StreamReader = proc.StandardOutput, st As String = ""
st = thr.ReadLine() & vbCrLf
Do Until thr.EndOfStream
st &= thr.ReadLine() & vbCrLf
Loop
proc.WaitForExit()
proc.Close()
'В переменной st содержится ответ, можно записать файл.
' IO.File.WriteAllText("1.txt", st)
MsgBox(st)
' Dim sdk = " ffprobe -v error -select_streams v:0 -show_entries stream=width,height -of default=nw=1 " & Inputic & """"
' Process.Start("cmd", "/k" & sdk).WaitForExit()
End If
End Sub

'[[[[[[[[[
Private Sub myProc()

End Sub

End Class
Ось - вынь-10 и Microsoft Visual Studio Community 2022 (64-разрядная версия) - Current Версия 17.4.1

I can · 21.11.2022, 17:27

Сообщение от Anderis49

Читай всё сообщение

Прикалываешься? Я уже раза три написал, что кавычки лишние, и не только я.

@Anderis49 · 21.11.2022, 17:37 **[ТС]**

Сообщение от I can

Я уже раза три написал, что кавычки лишние, и не только я.

А я уже 5 раз

Сообщение от I can

Я уже раза три написал, что кавычки лишние, и не только я.

а я 5 раз кавычки удалил и ничего не изменилось.
Мне нет никакого смысла прикалываться.
Уж 5-й день на исходе, а у меня нет результата.

I can · 21.11.2022, 17:40

Сообщение от Anderis49

Уж 5-й день на исходе, а у меня нет результата.

Покажи какой сейчас код.

Добавлено через 21 секунду
Полностью

@Anderis49 · 21.11.2022, 18:08 **[ТС]**

Сообщение от I can

Покажи какой сейчас код.
Добавлено через 21 секунду
Полностью

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        With OpenFileDialog1
            .InitialDirectory = nmd
            .RestoreDirectory = True
            .FileName = ""
            .Filter = "VideoFiles|*.avi| (*.mkv*)|*.mkv| (*.mp4)|*.mp4|HTM files (*.htm)|*.htm"
            .FilterIndex = 1
            '.Multiselect = True
            .Title = "Select Open Video Files"
        End With
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            sdf = OpenFileDialog1.FileName
            Inputic = """" & sdf
        End If
        myProc()
    End Sub
 
    Private Sub myProc()
            Dim proc As New Process
        proc.StartInfo.FileName = "ffprobe"
        '       proc.StartInfo.Arguments = "-v error -show_entries stream=width,height,bit_rate,duration """ & Inputic
        proc.StartInfo.Arguments = "-v error -show_entries stream=width,height """ & Inputic
        proc.StartInfo.CreateNoWindow = True
        proc.StartInfo.RedirectStandardOutput = True
        proc.StartInfo.UseShellExecute = False
        proc.Start()
        Application.DoEvents()
        Dim thr As IO.StreamReader = proc.StandardOutput, st As String = ""
        st = thr.ReadLine() & vbCrLf
        Do Until thr.EndOfStream
            st &= thr.ReadLine() & vbCrLf
        Loop
        proc.WaitForExit()
        proc.Close()
        'В переменной st содержится ответ, можно записать файл.
        If System.IO.File.Exists("F:\11.txt") Then
            'Файл существует
            System.IO.File.WriteAllText("F:\11.txt", st)
        Else
            'Файл НЕ существует
            System.IO.File.WriteAllText("F:\11.txt", "")
        End If
        If st = vbCrLf Then
            Exit Sub
        Else
            MsgBox(st)
        End If
    End Sub

I can · 21.11.2022, 19:03

Anderis49, ты точно прикалываешься, убрал кавычки совершенно не там.
Вот рабочий код, ничего не ломай.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim OFD As OpenFileDialog = New OpenFileDialog
        With OFD
            '.InitialDirectory = nmd 'Это я не знаю где у тебя, поэтому закомментировал
            .RestoreDirectory = True
            .FileName = ""
            .Filter = "VideoFiles|*.avi;*.mkv;*.mp4"
            .FilterIndex = 1
            '.Multiselect = True
            .Title = "Select Open Video Files"
        End With
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            myProc(OFD.FileName)
        End If
 
    End Sub
 
    Private Sub myProc(ByVal Inputic As String)
        Dim proc As New Process
        proc.StartInfo.FileName = "ffprobe"
        '       proc.StartInfo.Arguments = "-v error -show_entries stream=width,height,bit_rate,duration """ & Inputic & """"
        proc.StartInfo.Arguments = "-v error -show_entries stream=width,height """ & Inputic & """"
        proc.StartInfo.CreateNoWindow = True
        proc.StartInfo.RedirectStandardOutput = True
        proc.StartInfo.UseShellExecute = False
        proc.Start()
        Application.DoEvents()
        Dim thr As IO.StreamReader = proc.StandardOutput, st As String = ""
        st = thr.ReadLine() & vbCrLf
        Do Until thr.EndOfStream
            st &= thr.ReadLine() & vbCrLf
        Loop
        proc.WaitForExit()
        proc.Close()
        'В переменной st содержится ответ, можно записать файл.
        If System.IO.File.Exists("F:\11.txt") Then
            'Файл существует
            System.IO.File.WriteAllText("F:\11.txt", st)
        Else
            'Файл НЕ существует
            System.IO.File.WriteAllText("F:\11.txt", "")
        End If
        If st = vbCrLf Then
            Exit Sub
        Else
            MsgBox(st)
        End If
    End Sub

@Anderis49 · 22.11.2022, 08:37 **[ТС]**

Заработало!!!!

Преогромнейшее спасибо.

I can · 22.11.2022, 08:40

Сообщение от Anderis49

Заработало!!!!

Аллилуйя!

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@Anderis49 -42 / 41 / 6 Регистрация: 07.08.2013 Сообщений: 1,112 Записей в блоге: 1
	22.11.2022, 08:37 [ТС]
	Заработало!!!! Преогромнейшее спасибо. 0

Сохранить результаты выполнения cmd в файл

Решение