LER TEXTBOX EM PARTES 16 CARACTERES

ZANDOTC 24/08/2014 16:02:32
#440670
Boa Tarde;

Tenho um arquivo de texto com 1mb, eu importo este arquivo para o meu text box, e após aplico um tipo de criptografia, porém fica muito lento aplicar tudo de uma vez só. Eu precisaria que fosse aplicado a cada 16 caracteres e fosse apagando os jah usados e inserindo em um novo textbox.

Exemplo:
Textbox1 = isauhdiashdiuashdiuashdiusahdiusahdiusahdiusahdkjsahdkashdasiudhasiudhasukasdhasiud
faço a leitura dos primeiros 16
Textbox2 = isauhdiashdiuas

ai o textbox1 elimina os primeiros 16 jah lidos
textbox1 = hdiuashdiusahdiusahdiusahdiusahdkjsahdkashdasiudhasiudhasukasdhasiud
textbox2 = textbox2 & texto criptografado.

assim até o final do arquivo de texto.
PROFESSOR 25/08/2014 11:36:38
#440680
Veja, se a questão é a de fracionar o texto original, talvês isso ajude o desempenho, por utilizar uma matriz ao invés de uma variável do tipo texto:

Public Function FracionaTexto(ByRef parTexto As String, _
                                                      ByVal parFração As Long) As String()
    On Error GoTo hell:
    Static ret() As String [ô] Variável de retorno.
    Dim tamInicial As Long [ô] Tamanho do texto.
    Dim passo As Long      [ô] Quantidade de frações.
    Dim item As Long       [ô] Item do passo (fração).
    [ô] Validar o tamanho mínimo desejado
    [ô] para o comprimento das frações.
    If (parFração <= 0) Then parFração = 1
    tamInicial = Len(parTexto)
    If (tamInicial > parFração) Then
        [ô] Tem mais de uma fração ?
        [ô] Redimensionar a matriz de retorno!
        ReDim Preserve ret(((tamInicial - 1) \ parFração))
        [ô] Montar as frações:
        For passo = 1 To tamInicial Step parFração
            ret(item) = Mid$(parTexto, passo, parFração)
            item = (item + 1)
        Next
    ElseIf (tamInicial > 0) Then
        [ô] Só dá para uma fração.
        ReDim ret(0)
        ret(0) = parTexto
    Else
        [ô] Não tem como fracionar.
        ret = Split(vbNullString)
    End If
    GoTo sai:
hell:
    [ô] Em caso de erro, retornar o texto integral.
    Err.Clear
    ReDim ret(0)
    ret(0) = parTexto
sai:
    FracionaTexto = ret
End Function


Agora, a definição do problema não ficou clara. Desse modo não dá para saber se a sua dificuldade é a de atualizar o texto em tela, o fracionamento do texto, a criptografia ou outro ainda.

De qualquer modo, lembre-se de um lema antigo: [Ô]Dividir para Conquistar[Ô]. Isso, aplicado ao desenvolvimento de sistemas, quer dizer que todo problema pode/deve ser dividido em problemas menores, os quais terão solução mais fácil e assim, o conjunto sera resolvido mais rapidamente. Quanto mais dividido é um problema, mais fácil de resolver. E de quebra, você terá criado rotinas que poderão ser úteis á resolução de outros problemas.
ZANDOTC 27/08/2014 17:52:57
#440731
A atualização do texto quando vou aplicando a criptografia eh muito lenta.

Como eu utilizaria seu código para fazer o seguinte,
Assim:

1º - Preencho o textbox1 com texto
2º - Mover para o textbox2 16 caracteres e apagar os 16 que foram utilizados.
3º - Aplicar a criptografia ir movendo do textbox2 para o textbox3 sempre acrescentando os proximos 16 criptografados (essa parte é fácil)
FILMAN 27/08/2014 22:43:03
#440736
Qual a estrutura do arquivo?
Que tipo de Criptografia esta utilizando?

Porque trazer para um TextBox?
ZANDOTC 05/09/2014 16:45:22
#440999
deixa eu tentar explicar melhor...
o textbox que tem aproximadamente um mega de informações, precisa ser dividido em partes de 16 caracteres,

1º - Preencho o textbox1 com texto
2º - Mover para o textbox2 16 caracteres e apagar os 16 que foram utilizados.
3º - Aplicar a criptografia ir movendo do textbox2 para o textbox3 sempre acrescentando os proximos 16 criptografados (essa parte é fácil)

essa parte da criptografia não precisa ser levada em consideração só botei para deixar mais completo o processo.
FILMAN 05/09/2014 18:13:05
#441002
como você esta fazendo hoje? passe o seu código que faz isso!
Faça seu login para responder
Voltar