Visual Basic - ayuda con delimitador

hola soy nueva en esto y tengo que hacer un pequeño programa que me lea un archivo de texto en el cual vana ver delimitadores que pueden ser guiones o comas etc y necesito que el programa me analice el archi de texto cortandolo deonde encuentre un delimitador que se debera especificar.

porfa si alguien me puede ayudar estare muy agradecida de verdad o si alguien tiene algun programita que haga algo paresido que me sirva para orientarme porfa me lo podrian mandara ([email protected] ) de verdad estare muy agradecida si alguien me puede ayudar de ante mano gracias

lo que pasa que que son alrededor de 6000 registros no puedo ingresar registro por registro al codigo

queeeeeeeeeeee onda jajaj
bueno yo lo unico que quiero un codigo que habla un archivo de texto y lo separe cuando encuentre un delimitador que se le especifique

Alejandra, para que te puedan ayudar debes explicarlo para quien no conoce el proyecto.

Yo lo que entiendo es que tienes un archivo de texto (txt) que contiene datos. Esos datos son registros (como en una DB), y los registros están delimitados entre ellos por algún caracter pongamos que es un guión (-).

No se que quieres que separe cuando detecte el caracter, según la explicación parece que quieres partir el archivo en 2 archivos, pero no tiene sentido, así que te pondré lo que yo creo que estás intentando explicar.

Quieres leer los registros, de manera que cuando llegue al final de cada registro y detecte el caracter de fin de registro (-) se detenga la lectura para majear el registro en memoria.

Dim Buffer as string
Dim Caracter as byte

Open archivo For read As #1

do
Get #1, 1, Caracter
Buffer = Buffer & chr$(Caracter)
loop while Caracter = 45 ' Guión o caracter de separación

Después de esto tendrás en la variable Buffer el primer registro.

Espero haberte servido de algo.

Si estuvieras en un foro de verdad, ya habrias resuelto tu consulta ...
A ver ... prueba esto ...
Si no quieres que el deimitador aparezca en el nuevo archivo generado, simplemente modifica la variable sReplace quitando el delimitador ...

Private Sub Command1_Click()
Dim nEntrada As Integer, nSalida As Integer
Dim sDelim As String, sReplace As String
Dim sArchivo As String
Dim sSalida As String

sDelim = "-"
sReplace = "-" & vbCrLf
sArchivo = "S:Temparchivo.txt"
sSalida = "S:Tempsalida.txt"

nEntrada = FreeFile()
Open sArchivo For Input As #nEntrada
nSalida = FreeFile()
Open sSalida For Output As #nSalida

Print #nSalida, Replace(Input(LOF(nEntrada), nEntrada), sDelim, sReplace)

Close #nEntrada
Close #nSalida
End Sub

¿Pero funciona o no? :)