[Novato] Leer archivos y modificarlos

Iniciado por nhaalclkiemr, 5 Mayo 2007, 01:54 AM

0 Miembros y 1 Visitante están viendo este tema.

nhaalclkiemr

Pues bien, yo lo que quiero hacer es cojer un archivo, leer su contenido y escribirlo en otro...eso de momento...

Soy novato en esto y prové este code pero no se bien lo que hice, lo que intento ahora al principio es abrir un archivo con Open y copiar la primera linea y escribirla en el segundo...pero algo hago mal:

Option Explicit
Public filen
Public filen2
----------------------------
Private Sub cmd_Click()

End Sub
----------------------------
Private Sub cmdEncriptar_Click()
Dim inpu
Dim i
Open "filen" For Input As #1
Open "filen2" For Output As #2
Line Input #1, inpu
Write #2, 1, inpu
Close #1
Close #2

End Sub
--------------------------
Private Sub cmdExaminar_Click()
Dim filen
filen = dlgExaminar.FileName
dlgExaminar.ShowOpen
txtExaminar.Text = dlgExaminar.FileName
End Sub
-----------------------------

Private Sub lblExaminar_Change()

End Sub

------------------------
Private Sub Text1_Change()

End Sub
--------------------------
Private Sub cmdExaminar2_Click()
filen = dlgExaminar2.FileName
dlgExaminar2.ShowOpen
txtExaminar2.Text = dlgExaminar2.FileName
End Sub
-----------------------
Private Sub txtExaminar_Change()

End Sub
----------------------------
Private Sub txtExaminar2_Change()

End Sub


¿Como puedo hacer para copiar el contenido o parte de él en otro archivo?

Posteriormente me gustaría saber la forma de como puedo hacer para modificar el valor de cada byte...

Intento hacer una especie de crypter muy sencillo...

Saludos ;) ;)
StasFodidoCrypter 1.0 - 100% (old)
StasFodidoCrypter 2.0 - 85% (deserted)
Fire AV/FW-Killer - 97% (deserted)
R-WlanXDecrypter 1.0- 100%

yovaninu

Cita de: nhaalclkiemr en  5 Mayo 2007, 01:54 AM
Pues bien, yo lo que quiero hacer es cojer un archivo, leer su contenido y escribirlo en otro...eso de momento...

con esto lees todo el archivo y lo pasas a una variable


Dim filedata As String
Open "c:\tuarchivo.txt" For Binary As #1
  filedata = Input(LOF(1), 1)
Close #1


y con esto escribes lo leido en otro archivo nuevo:

Open "c:\otroarchivo.txt" For Binary As #1
Put #1, 1, filedata
Close #1


te refieres a eso?... ahora lo de sacar parte del archivo para eso tendrias que usar la instruccion Get que permite especificar desde donde se hace la lectura y por cuantos bytes dependiendo del tamaño de la variable receptora... pero eso ya es otra historia.
Un saludo!