Criado um bat para executar meu arquivo que recebe um txt
cria uns campos em xml
le a primeira linha do meu txt
exporta em xml.
estava funcionando com o visual studio (só não possuia bat executava no botão de executar)
mas ao colocar no VSCode esta dando erro !!!
alguem pode me ajudar
Imports System
Imports System.IO
Imports System.Collections
Imports System.Data
Imports System.Text
Sub Main()
Dim strXML
'- A linha de código innvoca a função - DataSetDelimitado() - e passa os parâmetros :
'- tipo de delimitação (no nosso caso uma tabulação - vbTab) e o nome do arquivo texto com sua localização
strXML = DataSetDelimitado("&", "C:/caio/alunos.txt")
End Sub
Function DataSetDelimitado(ByVal strDelimitador , ByVal strCaminhoArquivo )
'define as variáveis e objetos usados no codigo
dim oDS = As New DataSet()
Dim strCampos As String
Dim oTabela As New DataTable()
Dim oLinhas As DataRow
Dim intContador As Int32 = 0
'Dim oLinha As DataRow()
'define o cabeçalho do arquivo XML
'- As linhas de código acima mostram a flexibilidade da utilização da ADO.NET e sua integração com XML.
'- Estou definindo a representação do meu XML através das propriedades - DataSetName e Namespace - do objeto DataSet. Ao final estou incluindo uma tabela chamada classe.
oDS.DataSetName = "Alunos"
oDS.Namespace = "8a Serie"
oDS.Tables.Add("Classe")
oDS.Tables(0).Namespace = "teste2"
'- O código esta usando o objeto StreamReader para ler o arquivo texto e a seguir ir para o inicio do arquivo.
Dim lerArquivo As New StreamReader(strCaminhoArquivo)
'vai para o inicio do arquivo
lerArquivo.BaseStream.Seek(0, SeekOrigin.Begin)
'Inclui as colunas de cabeçalho do arquivo
'- As linhas percorrem o arquivo texto e incluem os cabeçalhos(nome que identificam as colunas)
' na tabela classe. A função Split é usada para separar cada coluna usando o delimitador (Tab) como parâmetro.
'Console.WriteLine("inicio")
'Console.WriteLine("|" + strDelimitador + "|")
For Each strCampos In lerArquivo.ReadLine().Split(strDelimitador)
oDS.Tables(0).Columns.Add(strCampos)
Console.WriteLine("atributo: " + strCampos)
Next
Console.WriteLine("fim filhos")
Console.ReadLine()
'Inclui as linhas do arquivo
'- Finalmente , instanciamos um objeto DataTable e criamos um objeto DataRow ; para a seguir preencher cada linha da tabela com os dados separados pela função Split.
oTabela = oDS.Tables(0)
While (lerArquivo.Peek() > -1)
oLinhas = oTabela.NewRow()
For Each strCampos In lerArquivo.ReadLine().Split(strDelimitador)
oLinhas(intContador) = strCampos
intContador = intContador + 1
Next
intContador = 0
oTabela.Rows.Add(oLinhas)
End While
'grava o arquivo xml gerado
oDS.WriteXml("C:/caio/alunos.xml")
'retorna o xml para a função
Return oDS.GetXml()
End Function
erro: