Mensajes

como funciona instr para extrae las palabras despues de la cadena

gracias dessa voy a probar tu codigo
y si kennylive  los numeros cambian dependiendo de la informacion del vichero en este caso (videos)

hola haber si alguien me puede ayudar
tengo un cli o como se llamen que funcionan con msdos o ficheros .bat el nombre del cli es (mkvverify.exe)
bueno cuando meto el codigo me genera un texto(.txt) como este

Código [Seleccionar] Expandir

                                                                                                                                           
Duration : 00:01:02.490
File size: 12.8 MByte
Segment 0
  Duration      : 00:01:02.490
  Muxing App    : libebml v0.7.7 + libmatroska v0.8.1
  Writing App   : mkvmerge v2.3.0 ('Freak U') built on Sep  8 2008 18:32:16
  Segment UID   : 83 5E 73 12 7E 95 B8 E6 B2 83 1E 95 A1 16 C0 4F
  Timecode Scale: 1,000,000
    Track 0
      Number            : 1
      UID               : 0x00000001
      Type              : video
      CodecID           : V_MPEG4/ISO/AVC
      Enabled           : yes
      Default           : yes
      Forced            : no
      Lacing            : no
      DefaultDuration   : 40,000,000
      MinCache          : 1
      MaxCache          : 0
      Language          : eng
      Resolution        :
      Pixels          : 672x384
        cropped         : (0,0)-(672,384)
        Display         : 7x4
        Unit            : pixel
    Track 1
      Number            : 2
      UID               : 0x2FA27A92
      Type              : audio
      CodecID           : A_MPEG/L2
      Enabled           : yes
      Default           : yes
      Forced            : no
      Lacing            : yes
      DefaultDuration   : 23,999,999
      MinCache          : 0
      MaxCache          : 0
      Language          : und
      sampling frequency: 48000 Hz
      channels          : 2


bueno el texto es ese bueno por ejemplo quisiera extraer a un texbox  lo que esta en rojo pero como siempre los pixel cambiam. yo e pensado si hay alguna forma de descartar la palabra pixels ya que esta no cambia
Pixels          : 672x384

este es el codigo que uso para extrae un linea del texto pero lo que quiero es no extaer todas las palabras de la linea seleccionada a extraer

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim s As String, a() As String

Open App.Path & "\mkvverify.txt" For Input As #1
s = Input(LOF(1), #1)
Close #1
a = Split(s, vbNewLine)
Text1.Text = a(19)
End Sub


un saludo y gracias de antemano

hello
lo que quiero realizar es guardar un texto en una sola linea a un que ponga multiline false el texto me lo sepaora en dos lineas y no deberia separarlo es que es un texto muy largo y quiero que se guarde en una sola linea como pued harcer eso?

hola
quiero saber como cargar una dll en visual basic para despues poder hacer uso de todos los métodos y funciones disponibles en el DLL. ayua por favor estoes para mi proyrcto del txt maker

nada solo decir que ya acabe el proyecto txtmaker v0.1 
si despues de un tiempo retomo el proyecto estare por aqui dando guerra
y gracias por todo y como decia alguno google es dios 

hehe si puede ser pero yo siempre hecido un pasado 

no funciona como yo quiero al escribir se mueve las partes negra ahora hacia a dentro
si miras el ejemplo puedes ver que el texto de color rojo nunca se mueve al escribir 

aqui un ejemplo de lo que quiero diceñar

http://rapidshare.com/files/242405236/sample.rar

pero como saben el codigo no se puede obtener, de ahi tanta preguntadera

[este es todo el codigo que use asta ahora]

wow como esta la cosa por unas pocas palabras y si el señor google es lo mas
ya que de ahi he sacado todo el codigo que usado para mi proyecto   

este es todo el codigo que use asta ahora

Código [Seleccionar] Expandir

Private Sub Command2_Click()
txt_Contenido = Replace(txt_Contenido, "artist", "" & Text1.Text)
End Sub

Private Sub Form_Load()
With Combo1
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
End With
With Combo2
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
End With
With Combo3
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
End With
End Sub

Private Sub Command1_Click()
On Error GoTo Err_Sub

Dim n_File As Integer
Dim Contenido As String


    'Número de archivo libre
    n_File = FreeFile
   
    'Abre el archivo indicado
    Open txt_Path For Input As n_File
   
    'Lee todo los datos del archivo y lo almacena en la variable
    Contenido = Input$(LOF(n_File), #n_File)
   
    'Cierra el archivo abierto
    Close n_File
   
    'Carga el contenido de la variable en el TextBox
    txt_Contenido = Contenido
   
    Exit Sub

Err_Sub:
   
    MsgBox Err.Description, vbCritical
End Sub

Private Sub Command3_Click()
Dim namefile
namefile = name_release
Open App.Path & ("/" + namefile + ".nfo") For Output As #1
Write #1, txt_Contenido.Text
Close #1
End Sub


ggg ahora va otra pregunta.
al remplazar el texto con el code replace() remplaza bien el texto pero mueve las otros textos de su alrededor
EJEMPLO

Código [Seleccionar] Expandir


█▀▄▄██▀▀            ARTiST:.........:                          ▀▀██▄▄▀█

bueno al remplazar el texto me muebe las partes negras y no quiero que pieda la forma texto que rodea en este caso siempre se mueve el texto de la parte derecha ya escribo de izquierda a derecha
bueno y eso quiero que el texto se pege , incuste es su sitio sin afectar a los texto de su alrededor

bueno espero que me entienda ya que soy chino(joke)
tambien pido disculpas si alguien ofendi con mis palabras