Mensajes

[Keyen]

Gracias Keyen, ese método solo sirve para seleccionar un rango select(A, B), estaría bien si se pudiera indicar el inicio de la línea select(Linea, A, B), pero a menos que idee la forma de sumar cuando mide cada string que voy insertando en el richtextbox... en fin, mucho consumo de tiempo y de proceso para mi app, así que lo dejo así:

Código (vbnet) [Seleccionar] Expandir

consolebox.Find("Processing: ")
consolebox.SelectionColor = Color.Yellow


Saludos!

Pues eso, ¿Sería posible cambiar el color de UNA sola línea de este richtextbox para que la línea de "Processing: ..." saliera en amarillo por ejemplo?

Y otra pregunta relacionada, ¿Sería posible cambiar solamente UNA palabra de color?

Agradezco cualquier información!

[Y A LA VEZ]

Hola,

Necesito agarrar el error output de la CMD en este código, pero no sé como hacerlo, solo me agarra el output standard. ¿Me pueden indicar como se hace?

Muchas gracias!

PD: Ya sé que es una mala práctica usar comandos externos, pero no encuentro ninguna librería que sirva para buscar metadataos Y A LA VEZ convertir videos, eso es dificil, estoy aprendiendo!

Código (VBNET) [Seleccionar] Expandir

               If metadata = True Then
                   Dim ffmpeg_process As New Process()
                   Dim ffmpeg_startinfo As New ProcessStartInfo()
                   ffmpeg_startinfo.FileName = "cmd.exe "
                   ffmpeg_startinfo.UseShellExecute = False
                   ffmpeg_startinfo.CreateNoWindow = False
                   ffmpeg_startinfo.Arguments = "/C ffmpeg.exe -y -i " & ControlChars.Quote & aFile.FullName.ToString() & ControlChars.Quote & " -f ffmetadata " & ControlChars.Quote & "%TEMP%\" & aFile.Name.ToString() & "_metadata.txt" & ControlChars.Quote & " >NUL 2>&1 && Type " & ControlChars.Quote & "%TEMP%\" & aFile.Name.ToString() & "_metadata.txt" & ControlChars.Quote & "| FINDSTR /I " & ControlChars.Quote & "^INAM ^title" & ControlChars.Quote
                   ffmpeg_startinfo.RedirectStandardOutput = True
                   ffmpeg_process.EnableRaisingEvents = True
                   ffmpeg_process.StartInfo = ffmpeg_startinfo
                   ffmpeg_process.Start()
                   Dim readerStdOut As IO.StreamReader = ffmpeg_process.StandardOutput
                   Do While readerStdOut.EndOfStream = False
                       consolebox.AppendText(readerStdOut.ReadLine() + vbNewLine)
                       consolebox.SelectionStart = consolebox.Text.Length
                       consolebox.ScrollToCaret()
                   Loop
               End If

[Keyen]

Gracias a todos, especialmente por la larga explicación de Keyen, en cuanto tenga más organizado el form probaré lo dle findfiles.

hola. pues bueno. como haria para hacer que python interactue con el simbolo del sistema. que haga cosas como ejecutar cmd o programar tareas etc. a traves de la interaccion con la consola
se entiende???

Ejecutar la CMD:

Código (python) [Seleccionar] Expandir

import os
os.system("Echo Test & Pause")

Para programar tareas usa el comando SCHTASKS de la CMD, en Python. o hazlo de la siguiente manera: http://www.dzone.com/snippets/create-and-run-scheduled-task

Y que no se te olvide mirar aquí: Recopilatorio de temas interesantes - Scripting -

[Nov]

Muchas gracias Nov!

Y si lo que quiero es Pausar el proceso también puedo usar el backgroundworker? en esa referencia no explican como Pausar, solamente Detener.

Osea, pausar y que al volver a darle al botón se retome "el proceso" desde le punto en el que se pausó... ¿Es posible?

[Pinnacle Studio]

Los editores de video no se pueden calificar en ese grupo (Mejor / Peor), yo los calificaría en estos dos grupos:

1. Editor orientado a un formato o grupo de formatos específico.
2. Suite de edición profesional de video.

En el primer grupo hay programas muy, muy buenos, como el VirtualDub o el AviDemux, y que son compatibles con muchos formatos, pero olvídate de insertar buenos efectos etc... este grupo sirve si prefieres facilidad a costa de profesionalidad.

En el segundo grupo cualquiera te va a aportar la misma relación "Calidad / Posibilidades / Formatos compatibles" como el Pinnacle Studio o el Adobe Premiere, pero yo me quedo con el sony Vegas, este grupo sirve si prefieres profesionalidad a costa de facilidad.

Saludos.

[¿Alguien me puede indicar como hacerlo porfavor?]

Hola,

A ver, tengo un richtextbox que "printa" información hasta finalizar el búcle FOR

Lo que pasa es que mi form se cuelga, no puedo tocar NADA,
Lo que necesito es poder detener (detener del todo) el proceso o mantenerlo en espera (Pause) mediante un botón, o un evento de teclado, o las dos cosas!, pero preferiblemente un botón que esté destinado a pausar el proceso, y otro botón destinado a detener el proceso por completo.

¿Alguien me puede indicar como hacerlo porfavor? No lo quiero hecho, quiero aprender a hacerlo pero no se por donde buscar!

Muchas gracias.

Código (vbnet) [Seleccionar] Expandir

   Public Sub MediaInfoWorkWithFilesInDir(ByVal aDir As DirectoryInfo)

       Dim aFile As FileInfo
       For Each aFile In aDir.GetFiles()
           If accepted_extensions.ToLower.Contains(aFile.Extension.ToLower) Then

               MI.Open(aFile.FullName)

               Dim Pos As Integer = 0
               To_Display = Nothing
               While Pos < MI.Count_Get(StreamKind.Audio)
                   To_Display += "| " + MI.Get_(StreamKind.Audio, Pos, "Format")
                   System.Math.Max(System.Threading.Interlocked.Increment(Pos), Pos - 1)
               End While

               consolebox.AppendText("Processing: " + aFile.ToString() + To_Display.ToString() + vbNewLine)
               consolebox.SelectionStart = consolebox.Text.Length
               consolebox.ScrollToCaret()

           End If
       Next
   End Sub


Hola,

Mi app trabaja sobre MILES de archivos y quisiera saber si puedo mejorar este for para disminuir el tiempo de procesado:

Código (vbnet) [Seleccionar] Expandir


Dim accepted_extensions As String = ".264 .3gp .asf .asx .avi .avc .bsf .bdmv .divx .dv .evo .f4v .flv .hdmov .m1v .m2t .m2ts .m2v .m4v .mkv .mov .mp4 .mpeg .mpg .mpv4 .mts .ogm .ogv .qt .rmvb .swf .ts .vob .webm .wmv"

   Public Sub PlaylistsWorkWithFilesInDir(ByVal aDir As DirectoryInfo)
       consolebox.AppendText("Processing: " + aDir.ToString() + vbNewLine)
       consolebox.SelectionStart = consolebox.Text.Length
       consolebox.ScrollToCaret()
       Dim aFile As FileInfo
       For Each aFile In aDir.GetFiles()
           If accepted_extensions.ToLower.Contains(aFile.Extension.ToLower) Then
               Using writer As StreamWriter = New StreamWriter(aFile.DirectoryName.ToString() & "\" & aDir.Name & ".m3u", True, System.Text.Encoding.UTF8)
                   writer.WriteLine(aFile.FullName.ToString())
               End Using
           End If
       Next
   End Sub


Me pregunto si existirá algún método en el sistema para comprobar si el archivo es un archivo de video, algo así:

Código [Seleccionar] Expandir

If IO.FileType(aFile) = "VideoFile" Then...