none
Converte Lset VB6 to VB.Net RRS feed

  • Pergunta

  • Eu tenho uma aplicação em VB6 que utiliza o LSet para atribuir valores para variáveis com tamanho fixo , como utilizar esse LSet em .Net

    ....
    Type Teste
        CodRegistro As String * 2 '1 - 2
        EmpresaPagadora As String * 4 '3 - 6
        CodBenefTitular As String * 16 '7 - 22
        NomeBenefTitular As String * 32 '32 - 55
        ...
        ...
    End Type

    Type LinhaArquivo
        Conteudo As String * 452
    End Type

    Public LinhaTrabalho As Teste
    Public LinhaConteudo As LinhaArquivo

    ...
    ...
    Line Input #ArquivoLivre, TextoTrabalho 'Estou lendo o conteudo de um arquivo texto
    LinhaConteudo.Conteudo = TextoTrabalho
    LSet LinhaTrabalho = LinhaConteudo 'Separando o conteudo pelo tamanho que foi definido no Type Teste
    ....
    ...

    quinta-feira, 27 de junho de 2013 14:52

Respostas

  • Você pode usar assim:

        Dim variavel(256) As Char
    

    ou assim:

      Structure Person
        Public ID As Integer
        Public MonthlySalary As Decimal
        Public LastReviewDate As Long
        <VBFixedString(15)> Public FirstName As String
        <VBFixedString(15)> Public LastName As String
        <VBFixedString(15)> Public Title As String
        <VBFixedString(150)> Public ReviewComments As String
      End Structure


    Bruno Ferreira de Souza
    MVP - Microsoft Valuable Professional
    MCTS .NET Framework - Windows Applications
    MCPD .NET Framework - Windows Applications
    www.maestrodotnet.com.br
    @BrunoMaestro

    segunda-feira, 1 de julho de 2013 08:33