¿Cómo filtrar todas las líneas calificadas de txt usando la programación VB?
¿oscuro? ¿Mi cadena? ¿Como? Línea
¿Oscura? MyLineStr? ¿Como? Línea
MyStr? =?""
Leer información del archivo original
¿Abrir? ¿"e:\1.txt"? ¿para qué? ¿ingresar? ¿Como? #1? Abrir el archivo como leído.
¿Qué hacer? ¿cuando? ¿No es así? ¿EOF(1)? ? ¿Recorrer hasta el final de la línea del archivo
? ¿ingresar? #1,?MyLineStr? Leer en línea
¿Y si? left(MyLineStr,?2)?=?" TH "? Entonces
¿MyStr? =?MiCadena? y amplificador? MyLineStr? y amplificador? vbCrLf
¿Fin? ¿Qué pasa si
el anillo
está cerca? #1?? Cierra el archivo.
Escribir archivo
¿Abrir? ¿"e:\2.txt"? ¿para qué? ¿Producción? ¿Como? #1? Abrir el archivo como salida.
¿Imprimir? #1,?MyStr
¿Cerrar? #1?? Cierra el archivo.