none
Como fazer no vb net RRS feed

  • Pergunta

  • Olá: Tenho a seguinte rotina feita em vb6, como fazer no vb net?

       strScriptHTML = vbNullString

       Do Until txtFile.AtEndOfStream = True
          If txtFile.Line > 1 And txtFile.Line < 12 Then strScriptHTML = txtFile.ReadLine: GoSub continua

          'strScriptHTML = txtFile.ReadLine
          strScriptHTML = Replace(txtFile.ReadLine, Chr(34), "'")
          If strScriptHTML <> "" Then txtFileNew.Write "        document.write(" & Chr(34) & strScriptHTML & Chr(34) & ");"
          'txtFileNew.Write strScriptHTML
          txtFileNew.WriteBlankLines 1
    continua:
       Loop

       strScriptHTML = vbNullString
       ' ==================== Fim =======================

    Não sei como mudar o GoSub e o continua:   e o Loop (????) .... Ajudem-me ai, por favor. Obrigado!


    helio Passos


    • Editado HelioPassos segunda-feira, 7 de janeiro de 2013 17:29
    segunda-feira, 7 de janeiro de 2013 17:27

Respostas

  • Bom levando em conta que você utilize as classes do namespace IO ficará parecido com isso:

    Dim strScriptHTML As String Dim txtFile As New IO.StreamReader("Caminho do arquivo") Dim txtFileNew As New IO.StreamWriter("Caminho do arquivo") Do While txtFile.EndOfStream = False If txtFile.Position > 1 And txtFile.Position < 12 Then strScriptHTML = txtFile.ReadLine() Continue Do End If 'strScriptHTML = txtFile.ReadLine() strScriptHTML = txtFile.ReadLine().Replace(Chr(34),"'") If strScriptHTML <> "" Then txtFileNew.Write(" document.write(" & Chr(34) & strScriptHTML & Chr(34) & ");") End If

    'txtFileNew.Write(strScriptHTML) txtFileNew.WriteLine() Loop


    É só um exemplo, só para você ter uma ideia das mudanças que terá que fazer.


    Herbert Lausmann

    Gerenciador de Logins


    • Editado Herbert Lausmann segunda-feira, 7 de janeiro de 2013 18:07
    • Sugerido como Resposta MarceloSchneider terça-feira, 8 de janeiro de 2013 11:23
    • Marcado como Resposta Ricardo RussoModerator sexta-feira, 11 de janeiro de 2013 12:40
    • Não Marcado como Resposta HelioPassos segunda-feira, 14 de janeiro de 2013 17:34
    • Marcado como Resposta HelioPassos segunda-feira, 14 de janeiro de 2013 17:35
    segunda-feira, 7 de janeiro de 2013 18:04

Todas as Respostas

  • Bom levando em conta que você utilize as classes do namespace IO ficará parecido com isso:

    Dim strScriptHTML As String Dim txtFile As New IO.StreamReader("Caminho do arquivo") Dim txtFileNew As New IO.StreamWriter("Caminho do arquivo") Do While txtFile.EndOfStream = False If txtFile.Position > 1 And txtFile.Position < 12 Then strScriptHTML = txtFile.ReadLine() Continue Do End If 'strScriptHTML = txtFile.ReadLine() strScriptHTML = txtFile.ReadLine().Replace(Chr(34),"'") If strScriptHTML <> "" Then txtFileNew.Write(" document.write(" & Chr(34) & strScriptHTML & Chr(34) & ");") End If

    'txtFileNew.Write(strScriptHTML) txtFileNew.WriteLine() Loop


    É só um exemplo, só para você ter uma ideia das mudanças que terá que fazer.


    Herbert Lausmann

    Gerenciador de Logins


    • Editado Herbert Lausmann segunda-feira, 7 de janeiro de 2013 18:07
    • Sugerido como Resposta MarceloSchneider terça-feira, 8 de janeiro de 2013 11:23
    • Marcado como Resposta Ricardo RussoModerator sexta-feira, 11 de janeiro de 2013 12:40
    • Não Marcado como Resposta HelioPassos segunda-feira, 14 de janeiro de 2013 17:34
    • Marcado como Resposta HelioPassos segunda-feira, 14 de janeiro de 2013 17:35
    segunda-feira, 7 de janeiro de 2013 18:04
  • Obrigado, funcionou, era isso mesmo!

    Obrigado.


    helio Passos

    segunda-feira, 14 de janeiro de 2013 17:36