extaer un texto cambiante de un archivo (.txt)

[Dessa]

Otra opción de búsqueda sin For sería :

Código [Seleccionar] Expandir



Private Sub Command1_Click()

Open App.Path & "\mkvverify.txt" For Input As #1
Dim s As String: s = Input(LOF(1), #1)
s = Replace(Replace(s, vbNewLine, ""), " ", "")
Close #1

Dim pos1 As Long: pos1 = InStr(s, "Pixels:")
Dim pos2 As Long: pos2 = InStr(s, "cropped:")
Dim s1 As String: s1 = Mid(s, pos1 + 7, pos2 - pos1 - 7): Text1 = s1
MsgBox s1

pos1 = InStr(s, "track1")
pos2 = Len(s)
Dim s2 As String: s2 = Mid(s, pos1, pos2)
pos1 = InStr(s2, "avg.bitrate:")
pos2 = InStr(s2, "frames:")
s2 = Mid(s2, pos1 + 12, pos2 - pos1 - 12): Text1 = s2
MsgBox s2

pos1 = InStr(s, "track2")
pos2 = Len(s)
Dim s3 As String: s3 = Mid(s, pos1, pos2)
pos1 = InStr(s3, "avg.bitrate:")
pos2 = InStr(s3, "frames:")
s3 = Mid(s3, pos1 + 12, pos2 - pos1 - 12): Text1 = s3
MsgBox s3

End Sub




[andrer03]

ok gracias por tu ayuda creo q ya solucione con todos los codigo que has puestos 
y eso gracias de nuevo si surge algo ya preguntare