Espero te sirva
Código:
dim sDato as String
Dim Valor as integer
valor=0: scontenido=scontenido+vbcrlf
do while scontenido<>""
sdato=mid(scontenido,1,instr(scontenido,vbcrlf)-2)
'msgbox "_"+sdato+"_"
if valor =1 then
'Aqui quedarian las instrucciones para el abecedario
elseif valor=2 then
'Aqui quedarian las instrucciones para los numeros
elseif valor=3 then
'aqui quedarian las instrucciones para los signos
else
'Este puede que no se utiliza pero es mejor evitar cualquier error
end if
selec case sdato
case "[ABECEDARIO]"
Valor=1
case "[NUMEROS]"
Valor=2
case "[SIGNOS]"
valor=3
case else
'que hara cuando no coincida con la cabezera
end select
scontenido=mid(scontenido,instr(scontenido,vbcrlf)+2)
'msgbox "_"+scontenido+"_"
loop
Los msgbox es para ver que no haya tomado los siguientes caracteres vbcr o vblf si asi fuera donde va el mas menos dos incremanda o decrementa el numero como sea necesario.
Saludos. feliz codificacion.
pd. este codigo aun se puede simplificar mas para no estar comparando linea con linea todo el archivo.
pd2. creo que no habra mucha dificultad para pasar de vb6 a net
Marcadores