Como fazer no vb net

Question

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

Answer 1

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

Answer 2

Obrigado, funcionou, era isso mesmo!

Obrigado.

---

helio Passos