Autor Tema: Como Separar Bloques De Texto (Leído 1639 veces)

karen81 · « **en:** Lunes 19 de Diciembre de 2005, 04:12 »

hola en el proyecto que estoy realizando tengo un archivo de texto que debo transmitir a una tarjeta para que los cifre el problema que tengo es que este se va cifrando en bloques, se como enviar todo el archivo pero lo debo enviar por bloque primero los primeros ocho caracteres, luego los otros 8 hasta llegar al final. Mi pregunta es ¿como hago para irme desplazando cada 8 caracteres?

cualquier ayuda sera bienvenida

Gracias

_vgt_

mmmm, creo k eso es facil, puedes contar palabras de una cadena de texto con una función de cadenas, creo k es la Len(cadenaTexto) y con el instr puedes ir cortando la cadena de texto desde 1 posicion hasta donde kieras... te hablo de memoria, te lo busco y te confirmo datos... de todas formas andas mal de tiempo en el msdn de visual vienen explicadas las funciones :-)

Saludo

Shiquilla

Código: Text

Dim lnI As Long
Dim lsTexto As String
Dim lnPos As Long
    For lnI = 1 To Len(lsCadenaDeTexto)
        If lnI + 8 &#62; Len(lsCadenaDeTexto) Then
            lnPos = Len(lsCadenaDeTexto) - lnI + 1
        Else
            lnPos = 8
        End If
        
        lsTexto = Mid(lsCadenaDeTexto, lnI, lnPos)
        'Hacer lo que sea con esa cadena
        lnI = lnI + 7
    Next lnI
 

Saludos,

karen81

Muchisimas gracias Shiquilla es justo lo que necesitaba, gracias por tomarte el tiempo y tambien a _vgt_

Adios

SoloCodigo

Autor Tema: Como Separar Bloques De Texto (Leído 1639 veces)

karen81

Como Separar Bloques De Texto

_vgt_

Re: Como Separar Bloques De Texto

Shiquilla

Re: Como Separar Bloques De Texto

karen81

Re: Como Separar Bloques De Texto