Ir para conteúdo
Fórum Script Brasil

Andersonjb

Veteranos
  • Total de itens

    580
  • Registro em

  • Última visita

Posts postados por Andersonjb

  1. Bem, mas mesmo ele usando somente um caracter, funcionou em outra parte do programa.

    Bem, lá vai o código da função:

        Public Function contaletras(ByVal texto As String)
    
            Dim script As String = texto
            Dim linhas() As String = script.Split(vbCrLf)
    
            Dim ul As Integer = linhas.IndexOf(linhas, vbCrLf) + 1
            Dim tl As Integer
            If ul = 0 And linhas.Length > 1 Then
                tl = 0
            Else
                tl = linhas.Length + 1
            End If
    
            Dim tcnr As Integer
            Dim tcom As Integer
            Dim cc As Integer
            Dim legal As String
            Dim bufferom As String
            Dim buffernr As String
    
    
            For k As Integer = 0 To script.Length
    
                If k < script.Length Then
                    legal = (script.Substring(k, 1))
                End If
                If k < (script.Length - 3) Then
                    buffernr = script.Substring(k, 2)
                    bufferom = script.Substring(k, 4)
    
                    If buffernr = "[$" Then
                        tcnr = tcnr + 4
                    End If
                    If bufferom = "[OM]" Then
                        tcom = tcom + 4
                    End If
                End If
            Next
            Dim total As Integer = texto.Length
            total = total - tcnr - tcom - tl - cc
    
            Return total
        End Function

    Fiz meleca ou está tudo certo?

  2. Opa, Gray, foi util sim, mas resolveu somente parte do meu problema. Bem, dá so uma olhada:

    O método Split separa as strings pelo caracter passado pelo parametro, certo? Então, quer dizer que se o caracter passado pelo parametro for o vbCrlf, toda vez que eu pular linha no arquivo, uma string vai ser separada. Então digamos que eu tenha a seguinte string:

    he

    he

    he

    Bem, eu pulei de linha duas vezes, isso representra 3 strings, e na matriz, ficaria assim:

    linhas(0) = he

    linhas(1) = he

    linhas(2) = he

    Bem, mas acontece que a matriz não fica assim, fica assim:

    linhas(0) = hehehe

    Simplesmente, o arquivo não está dividindo. Bem, ai eu pensei, vou fazer o teste em separado. Fiz a mesma coisa e deu certo, então eu pensei: será que não é "aonde" eu estou declarando esse código?

    Bem, no teste eu declarei em um simples botão, e no original, eu estou declarando em uma função dentro de um módulo. Isso pode interferir nesse código?

  3. E ai pessoal, beleza? Bem, eu queria tirar uma duvida quanto ao método Split. Bem, o meu objetivo é encontrar o total de linhas de um arquivo. Ai eu uso o seguinte código:

            Dim script As String = texto
            Dim linhas() As String = script.Split(vbCrLf)
            Dim tl As Integer = linhas.Length

    Bem, acontece o seguinte: se eu tenho somente uma linha, sem o vbCrlf, ele indica que eu tenho uma linha. Mas como ele pode indicar isso se o arquivo não tem nenhum caracter vbCrlf, ou seja, eu não pulei linha?

  4. É, ele tem um projeto para isso, mas sinceramente, nunca consegui mecher. Agora sobre funcionar sem instalador eu sei que funciona, só que eu queria deixar uma coisa mais bonitinha, entende?

  5. Bem, pessoal, eu dei uma procurada por ai e não achei, e gostaria de saber se existe algum programa que crie um "Instalador" para as minhas aplicações, vocês conhecem algum? valeu!

  6. Opa, agora deu certo Gray, mais la vai uma pergunta: a primeira coisa que eu suspeitei foi isso. E eu usei o Método Read() do BaseStream, mas simplesmente dava erro, e agora, com a sua ajuda, alcancei o meu objetivo com o Método ReadByte(). Bem, qual é a diferença entre o Método Read() e o Método ReadByte()?

  7. Olha só, amigo, os links não estão pegando! Arruma ai pra gente tentar te ajudar. Se bem que, já antecipando minha opnião, linguagem de programação é praticamente a mesma coisa, só muda a sintaxe ou o modo de trabalhar com alguns algoritmos, classes, etc. Vai no que você gosta, independentemente da linguagem, se você for bom, vai alcançar o mesmo resultado.

  8. De novo, problemas com arquivos binários, hehe. Bem pessoal, vamos ver se vocês me ajudam (principalmente o Gray, hehe). Bom, eu estou "girando" um arquivo bináriamente, contando posição por posição, e quando chega em uma posição determinada pelo usuário, ele pega esse dado e imprime em uma RichTextBox. Bem, como os dados são aleatórios, e podem ser vários, eu tenho que redirecionar o arquivo toda vez que retiro um dado, com este código:

    arquivojogo.BaseStream.Seek(k, IO.SeekOrigin.Begin)
    Bem, essa linha leva o arquivo a posição que eu quero, de acordo com a váriavel "k". Ai, eu pego o dado corrente da seguinte maneira:
    Dim a As String = arquivojogo.Read
    Bem, mas acontece é que quando eu "pulo" uma grande distância no arquivo, ao invés de os dados serem pegos a partir da posição que determinei, eles são pegos continuamente. Por exemplo:
    Posição Dado Referente 100 J 101 a 102 b 103 a 104 s 105 a 150 o 151 i
    Determino para pegar os dados da posição 100 até a posição 103, e apos a 103, pegar os dados da posição 150 até 151. Ao invés do dado ficar assim:
    "Jabaoi"
    Ele fica assim:
    "Jabasa"
    Entenderam? Bem, o arquivo está redirecionando certo, pois eu eu acompanho a posição pelo Debug e ele redireciona a posição, mas o erro está nessa linha:
    Dim a As String = arquivojogo.Read

    Pois, mesmo redirecionado, ele continua pegando dados sequenciamente do arquivo ao invés da posição que eu determinei, mesmo reposicionando o arquivo antes.

    Estou pegando esses dados de maneira correta?

  9. Opa, valeu galera! Eu queria que vocês me respondessem duas perguntas bestas ai, é que e o mal da informática: eu sou um bom programador, mas falo em outra area, eu so rabisco, uhauha. Bem, la vão:

    O protocolo TCP/IP e usado em conexões de alta velocidade? Se sim, é somente ele ou podem ser utilizados outros protocolos?

    E outra, vejam este endereço?

    www.ajato.com.br

    Qual poderia ser considerado o correto de uma exemplificação do dominio:

    Desse Jeito: www.ajato.com.br

    Ou desse: ajato.com.br

  10. Funciona sim; basta colocar "mailto:" na frente do e-mail.

    Certeza, Gray? Você fala na propriedade Text da LinkLabel ou via código? Porque coloquei dessa maneira na mesma propriedade...

    "mailto:"table_pro@ig.com.br

    ... e não funcionou. Fiz coisa errada?

  11. E ai pessoal, beleza? Bem, eu queria fazer uma coisa simples: Se uma condição for verdadeira, o Formulário é redimensionado, e se falsa, é mantido o tamanho original. Mas, eu não consegui redimensionar o formulário via código.

    Eu estou fazendo o seguinte para redimensionar:

    Me.Size.Width = 700

    Eu estou errando na sintaxe ou na declaração dos objetos?

  12. Putz, nem lembrava desse controle, Andréia, valeu!

    Mas olha só, so digitar o texto não basta, não é? Em qual propriedade eu defino o endereço que ele tem que apontar? Eu simplesmente coloquei o endereço na Label e ela não redirecionou.

  13. Tenho, eu edito o arquivo normalmente, inclusive o mesmo byte em um Editor Hexadecimal e o arquivo continua normal.

    Não estaria sendo feita uma verificação de checksum do arquivo? Se for este o caso, trocar um único byte já declararia o arquivo como corrompido.

    Não entendi, o que é checksum?

×
×
  • Criar Novo...