AJUDA PARA ESCREVER ESSA LINHA EM VB6

 Tópico anterior Próximo tópico Novo tópico

AJUDA PARA ESCREVER ESSA LINHA EM VB6

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#484503 - 15/09/2018 07:57:53

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


  
Ajuda para escrever essa linha em vb6

    function vp3ReadString(file) {
        var stringLength = file.getInt16();
        return file.getString(stringLength);
    }







#484507 - 15/09/2018 18:30:47

MARCELOKROL
REBOUCAS
Cadast. em:Julho/2004


Achei um pouco confusa essa função, mas creio que nesse link possa encontrar alguma coisa referente a leitura de arquivos texto



#484508 - 15/09/2018 22:49:58

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Aqui tem algo sobre isso também, e concordo com o Marcelo de ser complicada a linha e também acho que seja para verificar o tamanho de um arquivo para baixar, más
aqui   tem até um projetinho para mostrar baixando ou copiando um arquivo

Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


#484509 - 16/09/2018 06:49:42

SONILDO
CAMPO GRANDE
Cadast. em:Agosto/2009


Explica melhor...
essa rotina faz o que no csharp???

Pois ela só retorna um comprimento



#484511 - 16/09/2018 12:16:10

MARCELOKROL
REBOUCAS
Cadast. em:Julho/2004


Citação:
:
Explica melhor...
essa rotina faz o que no csharp???

Pois ela só retorna um comprimento


Eu acho que a ideia dessa função é retornar o conteúdo de um arquivo texto. Mas ali tem muitas inconsistências, pois não sabemos qual o tipo davariável
file
, e também o método getstring, não existe no namespace System.IO.File, outro detalhe é a declaração
function
, isso não existe no C#, creio que deveria ser declarado como:
private string vp3ReadString((???) file){(...)}




#484512 - 16/09/2018 14:20:08

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Galera valeu todos pel a dica mas reescrevi em vb assim deu certo

Private Function  ReadString(ByVal file As Integer) As String
   Dim stringLength As Long
   Dim B As Byte
   stringLength = 0
   Get #file, , B
   stringLength = B
   stringLength = stringLength * 256
   Get #file, , B
   stringLength = stringLength + B
   Dim returnString() As Byte
   If stringLength > 0 Then
   ReDim returnString(stringLength - 1)
   End If
   Get #file, , returnString
    ReadString = StrConv(returnString, vbUnicode)
End Function




 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por FABRICIOWEB em 16/09/2018 14:20:19