https://foro.gambas-es.org/viewtopic.php?f=1&t=1520&p=8870#p8870
-----------------------------------
FresyMetal
Martes, 29 Marzo 2011, 22:25

Re: Como Leer Una Cadena Con For?
-----------------------------------
mira esto es lo k tengo hecho por el momento, supongo k tendra algunos fallos  o la forma no es correcta ya k mi campo es c y soy novato en gambas
[code linenumbers=false syntax=gambas]
  resultado.Text = "rar a -v" & tam.Value & "m " & nuevonombre.Text & " " & rutafich.Text 
  entrada = resultado.Text
  
proc = SHELL (entrada) FOR READ WRITE 



'PUBLIC SUB datos_read()
  
 ' DIM linea AS String
  'READ #LAST, linea, -50
  'PRINT linea
  'resultado.Text = linea
END


PUBLIC SUB Process_Read()
  DIM x AS Integer
  DIM string AS String
    READ #proc, salida, -256
    Label3.Text = resultado.Text
   sCad = resultado.Text
    x = Left$(resultado.Text, 2)
  
    pb.Value = x / 100
    resultado.Text = salida
   
    END 

PUBLIC SUB Button3_Click()

    IF proc.State = Process.Running
    entrada = entrada & Chr$(10)
    WRITE #proc, entrada
    resultado.Text = resultado.Text & sCad 
  ENDIF 

END
[/code]


