¿Cómo fragmentar el contenido de un textbox?
Lo que necesito es fragmentar el contenido de un textbox en bloques de 255 caracteres para evaluar y guardar cada bloque en un tabla
1 Respuesta
Respuesta de ifrancoz
1
Podría ser algo así :
Dim Largo as integer
Dim Proce as integer
dim Campo as string
Private Sub Fragmentar()
Proce = 1
Largo = Len(Text1)
Do While Proce <= Largo
Campo=Mid(Text1,Proce,255)
' aqui graba el campo
Proce=Proce+255
Loop
End Sub
Suerte !
Dim Largo as integer
Dim Proce as integer
dim Campo as string
Private Sub Fragmentar()
Proce = 1
Largo = Len(Text1)
Do While Proce <= Largo
Campo=Mid(Text1,Proce,255)
' aqui graba el campo
Proce=Proce+255
Loop
End Sub
Suerte !
