Trabajar con cadenas en visual basic

Tío, saludos, a ver si me puedes ayudar...
Veras, los que deseo es simple pero es que no lo consigo. Estoy utilizando Visual Basic y me gustaría poder leer caracteres de un fichero txt e ir identificando cada uno de ellos para descartarlos o almacenarlos en una base de datos.
Es como decodificar un fichero txt de datos e ir guardando en la base de datos (utilizando un data) los que me interesen.
A ver si es posible que me indiques el código necesario para realizar la lectura de los caracteres del fichero y el acceso a ellos. Gracias.
Un saludo

1 Respuesta

Respuesta
1
Tienes que utilizar una referencia en tu proyecto a filesystemobject, con esto puedes trabajar la lectura de cualquier archivo.
Usa la siguiente rutina y adáptala:
Private Sub cmdLeer_Click()
Dim DLG_FILE_OPEN
Dim cdlOFNFileMustExist
Dim osf As Object
Dim Archivo As TextStream
Dim sLinea As String
Dim dLargo As Double
Dim dContador As Double
Dim cierto As Boolean
Dim iContador As Integer
Dim dFecha As String
Dim iVez As Integer
Dim iVezSuma As Integer
Dim sPaso As String
Dim sInstancia As String
Dim sMesTexto As String
Dim sDia As String
Dim sEjercicio As String
Dim sVG As String
Dim sVG1 As String
Dim sTamano As String
Dim sOcupado As String
Dim sLibre As String
Dim sBase As String
Dim lLineas As Long
Me.sprSinIntegrar.MaxRows = 0
Me.sprDatos.MaxRows = 0
cdlOFNFileMustExist = &H1000
DLG_FILE_OPEN = 1
With mdiPrincipal.CommonDialog1
.DialogTitle = "Especifique el nombre del archivo de Texto a Leer..."
.Filter = "Text Files (*.txt)|*.txt"
.FilterIndex = 2
.MaxFileSize = 30000
.Flags = cdlOFNFileMustExist
'Banderas
.CancelError = False
.DefaultExt = ".txt"
' display the Open File Dialog
'Acción de Salvar el Archivo
.Action = DLG_FILE_OPEN
End With
If mdiPrincipal.CommonDialog1.FileName = vbNullString Then
Exit Sub
End If
Set osf = CreateObject("scripting.filesystemobject")
Set Archivo = osf.OpenTextFile(mdiPrincipal.CommonDialog1.FileName, ForReading)
' Se lee todo el archivo
cierto = True
iContador = 1
iVezSuma = 0
lLineas = 0
Screen.MousePointer = vbHourglass
While Not Archivo.AtEndOfStream
sLinea = Archivo.ReadLine
lLineas = lLineas + 1
'debug.Print sLinea
If InStr(1, sLinea, Chr(34)) <> 0 And InStr(1, sLinea, "return") = 0 And InStr(1, sLinea, "NULL") = 0 Then
If InStr(1, sLinea, "NULL") = 0 Then
' nombre de la instancia
iVez = 0
sBase = "vg_det"
For dLargo = 1 To Len(sLinea)
If Mid$(sLinea, dLargo, 1) = Chr(34) Then
iVez = iVez + 1
End If
If iVez = 2 Then
Exit For
End If
Next
dLargo = dLargo + 1
sPaso = ""
sVG = ""
For dContador = dLargo To Len(sLinea)
If Mid$(sLinea, dContador, 1) <> Chr(34) Then
If Mid$(sLinea, dContador, 1) <> vbTab Then
sPaso = sPaso & Mid$(sLinea, dContador, 1)
End If
Else
Exit For
End If
Next
' nombre de la instancia
sInstancia = LTrim$(RTrim$(sPaso))
' se toma la fecha
dLargo = dContador + 1
sMesTexto = Cambia_Mes(Mid$(sLinea, dLargo, 3))
dLargo = dLargo + 4
sDia = Mid$(sLinea, dLargo, 2)
dLargo = dLargo + 4
sEjercicio = Mid$(sLinea, dLargo, 4)
End If
End If
If InStr(1, sLinea, "FS") <> 0 Or InStr(1, sLinea, "vg") <> 0 Then
' vamos por los datos de espacios
If InStr(1, sLinea, "FS") <> 0 Then
sVG = Mid$(sLinea, 1, 2)
iVez = 0
sVG1 = ""
sTamano = ""
sOcupado = ""
sLibre = ""
For dContador = 6 To Len(sLinea)
If Mid$(sLinea, dContador, 1) <> vbTab Then
If iVez = 0 Then
sVG1 = sVG1 & Mid$(sLinea, dContador, 1)
End If
Else
iVez = iVez + 1
dContador = dContador + 1
End If
Select Case iVez
Case 1
sTamano = sTamano & Mid$(sLinea, dContador, 1)
Case 2
sOcupado = sOcupado & Mid$(sLinea, dContador, 1)
Case 3
sLibre = sLibre & Mid$(sLinea, dContador, 1)
End Select
Next
If iVez >= 3 Then
' ya tenemos todos los datos del registro
Me.sprDatos.MaxRows = Me.sprDatos.MaxRows + 1
Me.sprDatos.Row = Me.sprDatos.MaxRows
Me.sprDatos.Col = 1
Me.sprDatos.Text = sInstancia
Me.sprDatos.Col = 2
Me.sprDatos.Value = sDia & "/" & sMesTexto & "/" & sEjercicio
Me.sprDatos.Col = 3
Me.sprDatos.Value = sVG
Me.sprDatos.Col = 4
Me.sprDatos.Value = sVG1
Me.sprDatos.Col = 5
Me.sprDatos.Value = sTamano
Me.sprDatos.Col = 6
Me.sprDatos.Value = sOcupado
Me.sprDatos.Col = 7
Me.sprDatos.Value = sLibre
Me.sprDatos.Col = 8
Me.sprDatos.Value = sBase
sVG = vbNullString
sVG1 = vbNullString
sTamano = vbNullString
sOcupado = vbNullString
sLibre = vbNullString
iVez = 0
Me.Label1.Caption = "Registros Procesados: " & Format$(Me.sprDatos.MaxRows, "###,###,###")
DoEvents
End If
Else
For dContador = 1 To Len(sLinea)
If Mid$(sLinea, dContador, 1) <> vbTab Then
sVG = sVG & Mid$(sLinea, dContador, 1)
Else
Exit For
End If
Next
iVez = 0
sVG1 = " "
sTamano = ""
sOcupado = ""
sLibre = ""
dContador = dContador + 1
For dLargo = dContador To Len(sLinea)
If Mid$(sLinea, dLargo, 1) <> vbTab Then
If iVez = 0 Then
sTamano = sTamano & Mid$(sLinea, dLargo, 1)
End If
Else
iVez = iVez + 1
dLargo = dLargo + 1
End If
Select Case iVez
Case 1
sOcupado = sOcupado & Mid$(sLinea, dLargo, 1)
Case 2
sLibre = sLibre & Mid$(sLinea, dLargo, 1)
End Select
Next
If iVez >= 2 Then
' ya tenemos todos los datos del registro
Me.sprDatos.MaxRows = Me.sprDatos.MaxRows + 1
Me.sprDatos.Row = Me.sprDatos.MaxRows
Me.sprDatos.Col = 1
Me.sprDatos.Text = sInstancia
Me.sprDatos.Col = 2
Me.sprDatos.Value = sDia & "/" & sMesTexto & "/" & sEjercicio
Me.sprDatos.Col = 3
Me.sprDatos.Value = sVG
Me.sprDatos.Col = 4
Me.sprDatos.Value = sVG1
Me.sprDatos.Col = 5
Me.sprDatos.Value = sTamano
Me.sprDatos.Col = 6
Me.sprDatos.Value = sOcupado
Me.sprDatos.Col = 7
Me.sprDatos.Value = sLibre
Me.sprDatos.Col = 8
Me.sprDatos.Value = sBase
sVG = vbNullString
sVG1 = vbNullString
sTamano = vbNullString
sOcupado = vbNullString
sLibre = vbNullString
iVez = 0
Me.Label1.Caption = "Registros Procesados: " & Format$(Me.sprDatos.MaxRows, "###,###,###")
DoEvents
End If
End If
End If
If InStr(1, sLinea, "sum") <> 0 Or InStr(1, sLinea, "Total") <> 0 Then
' el renglón de los totales
sVG = "SUM"
If sBase <> "bd_det" Then
sBase = "vg_tot"
Else
sBase = "bd_tot"
End If
iVezSuma = iVezSuma + 1
Else
If sVG = "SUM" And InStr(1, sLinea, "NULL") = 0 Then
iVezSuma = iVezSuma + 1
Else
If iVezSuma > 0 And InStr(1, sLinea, "NULL") = 0 Then
iVezSuma = iVezSuma - 1
Else
If iVezSuma > 0 And InStr(1, sLinea, "NULL") <> 0 Then
iVezSuma = iVezSuma - 1
sVG = ""
End If
End If
End If
End If
If iVezSuma >= 2 Then
' se toman los totales
iVezSuma = 0
iVez = 0
sVG1 = " "
sTamano = ""
sOcupado = ""
sLibre = ""
For dLargo = 1 To Len(sLinea)
If Mid$(sLinea, dLargo, 1) <> vbTab Then
If iVez = 1 Then
sTamano = sTamano & Mid$(sLinea, dLargo, 1)
End If
Else
iVez = iVez + 1
If iVez > 1 Then
dLargo = dLargo + 1
End If
End If
Select Case iVez
Case 2
sOcupado = sOcupado & Mid$(sLinea, dLargo, 1)
Case 3
sLibre = sLibre & Mid$(sLinea, dLargo, 1)
End Select
Next
If iVez >= 2 Then
' ya tenemos todos los datos del registro
Me.sprDatos.MaxRows = Me.sprDatos.MaxRows + 1
Me.sprDatos.Row = Me.sprDatos.MaxRows
Me.sprDatos.Col = 1
Me.sprDatos.Text = sInstancia
Me.sprDatos.Col = 2
Me.sprDatos.Value = sDia & "/" & sMesTexto & "/" & sEjercicio
Me.sprDatos.Col = 3
Me.sprDatos.Value = sVG
Me.sprDatos.Col = 4
Me.sprDatos.Value = sVG1
Me.sprDatos.Col = 5
Me.sprDatos.Value = sTamano
Me.sprDatos.Col = 6
Me.sprDatos.Value = sOcupado
Me.sprDatos.Col = 7
Me.sprDatos.Value = sLibre
Me.sprDatos.Col = 8
Me.sprDatos.Value = sBase
sBase = "bd_det"
sVG = vbNullString
sVG1 = vbNullString
sTamano = vbNullString
sOcupado = vbNullString
sLibre = vbNullString
iVez = 0
iVezSuma = 0
Me.Label1.Caption = "Registros Procesados: " & Format$(Me.sprDatos.MaxRows, "###,###,###")
DoEvents
End If
End If
If InStr(1, sLinea, "Nombre Base") <> 0 Or sVG = "BASE" Then
' el renglón de los totales
If sVG = "BASE" Then
iVezSuma = iVezSuma + 1
End If
sVG = "BASE"
iVezSuma = iVezSuma + 1
Else
If sVG = "BASE" Then
iVezSuma = iVezSuma + 1
End If
End If
If iVezSuma >= 2 Then
' se toman los totales
iVezSuma = 0
iVez = 1
sVG1 = ""
For dContador = 1 To Len(sLinea)
If Mid$(sLinea, dContador, 1) <> vbTab Then
sVG1 = sVG1 & Mid$(sLinea, dContador, 1)
Else
Exit For
End If
Next dContador
dContador = dContador + 1
sTamano = ""
sOcupado = ""
sLibre = ""
For dLargo = dContador To Len(sLinea)
If Mid$(sLinea, dLargo, 1) <> vbTab Then
If iVez = 1 Then
sTamano = sTamano & Mid$(sLinea, dLargo, 1)
End If
Else
iVez = iVez + 1
dLargo = dLargo + 1
End If
Select Case iVez
Case 2
sOcupado = sOcupado & Mid$(sLinea, dLargo, 1)
Case 3
sLibre = sLibre & Mid$(sLinea, dLargo, 1)
End Select
Next
If iVez >= 2 Then
' ya tenemos todos los datos del registro
Me.sprDatos.MaxRows = Me.sprDatos.MaxRows + 1
Me.sprDatos.Row = Me.sprDatos.MaxRows
Me.sprDatos.Col = 1
Me.sprDatos.Text = sInstancia
Me.sprDatos.Col = 2
Me.sprDatos.Value = sDia & "/" & sMesTexto & "/" & sEjercicio
Me.sprDatos.Col = 3
Me.sprDatos.Value = sVG
Me.sprDatos.Col = 4
Me.sprDatos.Value = sVG1
Me.sprDatos.Col = 5
Me.sprDatos.Value = sTamano
Me.sprDatos.Col = 6
Me.sprDatos.Value = sOcupado
Me.sprDatos.Col = 7
Me.sprDatos.Value = sLibre
Me.sprDatos.Col = 8
Me.sprDatos.Value = sBase
'sVG = vbNullString
sVG1 = vbNullString
sTamano = vbNullString
sOcupado = vbNullString
sLibre = vbNullString
iVez = 1
Me.Label1.Caption = "Registros Procesados: " & Format$(Me.sprDatos.MaxRows, "###,###,###")
DoEvents
End If
End If
Me.Label2.Caption = "Líneas Leídas: " & Format$(lLineas, "###,###,###")
DoEvents
Wend
Archivo.Close
Screen.MousePointer = vbNormal
Exit Sub
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Website verification: Process and what to look forWhen you are dealing with a new website,

When you are dealing with a new website, it is very important to verify that the website is legitimate and not a scam. This process can be done by looking for certain things on the website, such as contact information, privacy policy, and terms and...
2 respuestas

¿Por que Mi radio 2 din enciende pero la pantalla se queda en negro?

Tengo una radio jvc kw-m741bt, que enciende pero la pantalla se queda en negra, al principio se volvía loca y se ponía la pantalla en negro a veces, ¿Pero se quitaba y ahora ya se quedo en negro y no hace nada . Alguna sugerencia? Ayudarme por favor...
2 respuestas

Como hacer funcionar este viejo videojuego?

He rescatado del trastero un videojuego de mi niñez que parece funcionar pero no consigo sintonizarlo en las teles modernas, se llega a ver algo pero asi imposible jugar no se si el tipo de señal ya no es compatible en la actualidad o como poder...
2 respuestas

Cómo descargar juegos para una Game stick

Tengo un Game stick memory y quería descargar más juegos retro desde internet. Por lo que he leído tienen que serjuegos con formato relacionado en DDM/SJE/BVE/MAME/FC/GB/GBA/GBC/MD/SFC/PS1/ ¿Podría decirme cómo hago esto?
15 respuestas

Laptop Lenovo Z40-70 a veces da señal y a veces no...

Tengo una Laptop Lenovo Z40-70 que a veces al encenderla no manda señal, encienden los leds, pero no da señal en pantalla y en otras ocasiones prende y funciona sin problema, pero si la apago y la vuelvo a encender o la reinicio ya no da señal, por...
3 respuestas

Placa base similar asus m5a88-m evo

¿Alguna placa base de hoy en día que sea similar o mejor a la Asus m5a88 m evo?! Me está fallando, esta misma ya la encuentro descatalogada.., no sé si habrían problemas de incompatibilidad con tema software... Aun ando con XP y programas antigüos de...
2 respuestas

Realmente funciona la inteligencia artificial de los TV LG

Recién me compré una TV Lg C9 de 55 pulgadas y respecto a la AI que trae el procesador a9 segunda generación tengo mis serias dudas respecto a la mejora de imagen. Según LG este procesador es capaz de mejorar la imagen y el sonido por algoritmos pues...
3 respuestas

Bat para buscar archivo especifico y haga una copia en una determinada ruta

Esto automatizando un bat que en primera instancia lo que hace es hacer una copia de otro archivo bat que está en el escritorio, el problema que tengo es que está limitado con una ruta especifica lo cual es un problema pues para funcione debo dejar...
3 respuestas

¿El aumentar memoria RAM en mi pc podrá acelerar la presencia de fotos?

Mi pc (de escritorio) tiene la board M5A78L-M y 12gb de memoria RAM. Cuando abro una carpeta con 50 o 100 fotografías estas se demoran en aparecer, especialmente las RAW. ¿Si aumento la memoria RAM con una tarjeta de 16gb 1600 sería la solución?
2 respuestas

Boot para firmar pdf con firma digital

Tengo que firmar numerosos pdf's con firma digital, ¿Habría alguna manera de automatizar la tarea con un boot? La firma se realizaría siempre en la misma hoja dependiendo del documento, tengo dos tipos de documentos. Ejm: Documento 1 simpre la firma...
4 respuestas