Visual Basic para Aplicaciones - Ayuda progamacion URGENTE

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda progamacion URGENTE

Publicado por Cybertron (1 intervención) el 24/11/2008 17:24:01
Hola, estoy muy enfrascado en un trabajo de programació con visual basic y no se como llevarlo a buen puerto.
El trabajo consiste en que a partir de un documento con contenido mixto, tenemos que hacer dos documentos segun lo que contiene el docuemtno original. Me explicaré con mas detalle.

En el docuemtno original nos encontramos con fragmentos asi (entre otros):

FT mRNA join(<1..324,401..591,734..893,978..1130,1291..1351,
FT 1631..1775,3140..3271,3404..4118,4209..4622,6693..7237,
FT 7932..8204,8343..>8616)

FT mRNA <1..>

Y me pide crear un documento (Output) donde esten todas las secuencias que acaben por ), y otro docuemnto donde esten las que acaben por >

Supongo que es utilizando los comandos Do Until EOF, IF, o FOR, pero no se resolverlo...

Cualquier sugerencia seria muy bien recibida ;p

Gracias de Antemano!!!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda progamacion URGENTE

Publicado por VICTOR MR (49 intervenciones) el 26/11/2008 17:16:37
Hola que tal

Tienes que abrir el archivo

Dim vbLargo As Long
Dim vbFrase1 As String
Dim vbFrase2 As String
Dim vbCaracter As String
Dim vbPaso As String

Open "C:ERRORES.LOG" For Input As #1

Dim Linea As String, Total As String

Do Until EOF(1)
Line Input #1, Linea
Total = Total + Linea
Loop
Close #1
'' HASTA AQUI YA TENEMOS TODO EL ARCHIVO EN UNA VARIABLE (TOTAL)
'' AHORA VAMOS A BARRER LA VARIABLE Y COMPONER LAS SENTENCIAS
vbLargo = Len(Total)
For I = 1 To vbLargo
vbCaracter = Mid(Total, I, 1)
If vbCaracter <> ")" And vbCaracter <> ">" Then
vbPaso = vbPaso & vbCaracter
Else
If vbCaracter = ")" Then
vbFrase1 = vbPaso
vbPaso = ""
MsgBox vbFrase1, vbDefaultButton1, "SALIDA 1 QUE FINALIZA CON )"
Else
vbFrase2 = vbPaso
vbPaso = ""
MsgBox vbFrase2, vbDefaultButton1, "SALIDA 2 QUE FINALIZA CON >"
End If
End If

Next I

ESPERO Y TE SIRVA, SALUD2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar