Eliminar Rango de Caracteres con VB 2010

[Quiza]

Buen día, estoy en un dilema, no se como crear el code para eliminar un rango de datos en diferentes lineas de un archivo TXT.

Ejemplo:

SCC~4~~M@10*
QTY~1@0@C62*
DTM~10@20110502@102*
QTY~1@0@C62*
DTM~10@20110606@102*
QTY~1@0@C62*
DTM~10@20110704@102*
QTY~1@0@C62*
DTM~10@20110801@102*
QTY~1@0@C62*
DTM~10@20110905@102*
QTY~1@0@C62*
DTM~10@20111003@102*
QTY~1@0@C62*
DTM~10@20111107@102*
QTY~1@0@C62*
DTM~10@20111205@102*
SCC~2*
QTY~3@3@C62*
DTM~52@20110107@102*
DTM~51@20101225@102*
SCC~3*
QTY~3@3@C62*
DTM~52@20110107@102*
DTM~51@20101
lo que esta en rojo es lo que se eliminara. y lo que esta en negro es la continuacion (el texto que queda).
En resumen, de ese codigo quiero que al seleccionar mi archivo ejemplo.txt haga el rastreo desde el M@10 hasta antes del SCC~2*.

agradecere su ayuda.

[erbuson]

Hola, según parece en tu mensaje quieres empezar a guardar desde SCC-2 aunque no es precisamente lo que indicas ya que de tus datos parece entenderse que debe empezar en M@10 cuando marcas en rojo el SCC-4 (No se si es o no un guión, pero es lo de menos)

La idea, si tuviera que desarrollarlo yo sería, en primer lugar cargar TODO el archivo de texto en una sola variable.

Buscar la posicion donde empieza el SCC-2 con Instr(DatosFichero, "SCC-2") lo cual te devolverá la 1ª posición.

Entonces deberías grabar en el nuevo fichero el MID$(DatosFichero o directamente en la misma instruccion.

Print #Fichero, MID$(DatosFichero, Instr(DatosFichero, "SCC-2"))

Bueno, no deja de ser una idea que puedes desarrollar facilmente.

Saludos