ARQUIVO TEXTO

MRPESTOQUE 13/05/2014 09:19:45
#438129
bom dia estou migrando do vb.6 para vb.net, não estou conseguindo migrar o código abaixo que uso para gerar um arquivo texto.

segue o código
Private Sub Command1_Click()
Dim vSeqI As Variant
Dim vSeqF As Variant
Dim vCarga_Inf As String
Dim vSeq_Imp As Long
Dim vcountcarga As Variant
Dim vvar As Variant
Dim i As Byte
i = FreeFile
vSeqI = [Ô]1[Ô]
vSeqF = [Ô]txtquantidade[Ô]
vcountcarga = txtquantidade.Text
Open [Ô]\\servermrp\mrp\mrp-estoque\ETIQUETAS_GRADE.txt[Ô] For Append As #i
For vvar = 2 To vcountcarga + 1
If vCarga_Inf = vCarga_Inf Then
vSeq_Imp = vSeq_Imp + 1
If vSeqI = [Ô][Ô] Then
vSeqI = 0
Else
vSeqI = vSeqI
End If

If vSeqF = [Ô][Ô] Then
vSeqF = 99999
Else
vSeqF = vSeqF
End If

Print #1, Chr$(2) & [Ô]m[Ô] & Chr$(13)
Print #1, Chr$(2) & [Ô]L[Ô] & Chr$(13)
Print #1, [Ô]H15[Ô] & Chr$(13)
Print #1, [Ô]PJ[Ô] & Chr$(13)
Print #1, [Ô]D11[Ô] & Chr$(13)
Print #1, [Ô]R0000[Ô] & Chr$(13)
Print #1, [Ô]C0010[Ô] & Chr$(13)
Print #1, [Ô]191200301800120[Ô] & [Ô]CONTROLE DE QUALIDADE RODIAL[Ô] & Chr$(13)
Print #1, [Ô]192200301100020[Ô] & txtdescrição.Text & Chr$(13)
Print #1, [Ô]191000300500010Produzido em:[Ô] & [Ô] [Ô] & txtdata.Text & Chr$(13)
Print #1, [Ô]192200300400450LOTE:[Ô] & txtlote.Text & Chr$(13)
Print #1, [Ô]120000300400780Sequencia:[Ô] & vSeq_Imp & Chr$(13)
Print #1, [Ô]Q0001[Ô] & Chr$(13)
Print #1, [Ô]E[Ô] & Chr$(13)
End If
Next vvar

Close #i
Gerar_Arquivo_Bat_Imprimir
MsgBox [Ô] ETIQUETA IMPRESSA COM SUCESSO[Ô]
Kill [Ô]\\servermrp\mrp\mrp-estoque\ETIQUETAS_GRADE.txt[Ô]

End Sub


alguém pode me ajudar
ESLEYSANCHES 16/09/2014 23:11:40
#441282
Bom amigo, não sei exatamente o que você está tendo dúvida para migrar, porém caso a dúvida seja na escrita de arquivos segue abaixo um código simples que demonstra como escrever em um arquivo .TXT

Exemplo em c#
// O ultimo parametro TRUE define se será append ou irá criar um arquivo
System.IO.StreamWriter SW = new System.IO.StreamWriter([Ô]C:\    este\    este.txt[Ô], true);

// Aqui você escreve linha por linha
SW.WriteLine([Ô]Minha primeira linha aqui![Ô]);
SW.WriteLine([Ô]Minha segunda linha aqui![Ô]);
SW.WriteLine([Ô]E assim por diante![Ô]);

// Ultima linha importante para criar o arquivo e liberar ele (Fechar arquivo)
SW.Close();


Exemplo em VB.Net
Dim SW As System.IO.StreamWriter
SW = My.Computer.FileSystem.OpenTextFileWriter([Ô]c:    este.txt[Ô], True) [ô]O True define para utilizar append
SW.WriteLine([Ô]Minha primeira linha aqui![Ô])
SW.WriteLine([Ô]Minha segunda linha aqui![Ô])
SW.WriteLine([Ô]E assim por diante![Ô])
SW.Close()



Abraços
Esley
Faça seu login para responder
Voltar