pocisionamiento en un .txt
Publicado por pako montaño (3 intervenciones) el 11/09/2007 00:56:22
hola:
que tal , mi pregunta es com puedo darle cordenada a un archivo .txtx desde vb.net, ya tengo el codigo para crearlo , pero quiero que en una cierta coorsdenada o pocisio me escriba un texto,el codigo que tengo es el siguiente:
Private Sub GeneraArchivo()
'Variables para abrir el archivo en modo de escritura
Dim strStreamW As Stream
Dim linea As StreamWriter
Try
Dim FilePath As String = "C:\Documents and Settings\francisc\Desktop\Archivo.txt"
'Se abre el archivo y si este no existe se crea
strStreamW = File.OpenWrite(FilePath)
linea = New StreamWriter(strStreamW, _
System.Text.Encoding.UTF8)
'Se traen los datos que necesitamos para el archivo
'TraerDatosArchivo retorna un dataset pero perfectamente
'podria ser cualquier otro tipo de objeto
' ds = Negocios.TraerDatosArchivo()
Dim Nombre As String = ""
Dim Apellido As String = ""
Dim Email As String = ""
Nombre = "pako"
Apellido = "Montaño"
Email = "[email protected]"
'Escribimos la línea en el achivo de texto
linea.WriteLine(Nombre)
linea.WriteLine(Apellido)
linea.WriteLine(Email)
' Next
linea.Close()
MsgBox("El archivo se generó con éxito")
Catch ex As Exception
'strStreamWriter.Close()
MsgBox(ex.Message)
End Try
End Sub
GRACIAS....................ATT: PAKO MONTAÑO
que tal , mi pregunta es com puedo darle cordenada a un archivo .txtx desde vb.net, ya tengo el codigo para crearlo , pero quiero que en una cierta coorsdenada o pocisio me escriba un texto,el codigo que tengo es el siguiente:
Private Sub GeneraArchivo()
'Variables para abrir el archivo en modo de escritura
Dim strStreamW As Stream
Dim linea As StreamWriter
Try
Dim FilePath As String = "C:\Documents and Settings\francisc\Desktop\Archivo.txt"
'Se abre el archivo y si este no existe se crea
strStreamW = File.OpenWrite(FilePath)
linea = New StreamWriter(strStreamW, _
System.Text.Encoding.UTF8)
'Se traen los datos que necesitamos para el archivo
'TraerDatosArchivo retorna un dataset pero perfectamente
'podria ser cualquier otro tipo de objeto
' ds = Negocios.TraerDatosArchivo()
Dim Nombre As String = ""
Dim Apellido As String = ""
Dim Email As String = ""
Nombre = "pako"
Apellido = "Montaño"
Email = "[email protected]"
'Escribimos la línea en el achivo de texto
linea.WriteLine(Nombre)
linea.WriteLine(Apellido)
linea.WriteLine(Email)
' Next
linea.Close()
MsgBox("El archivo se generó con éxito")
Catch ex As Exception
'strStreamWriter.Close()
MsgBox(ex.Message)
End Try
End Sub
GRACIAS....................ATT: PAKO MONTAÑO
Valora esta pregunta


0