Copiere continut fisier in alt fisier

#1
Taw

Posted 15 June 2009 - 16:57

Senior Member

Grup: Senior Members
Posts: 2,084
Înscris: 14.11.2003

Am un fisier si vreau sa copii continutul lui in alt fisier, in afara de linia nr 4 (mereu este 4).M-am gandit la ceteva metode.

1. Copierea directa cu FileCopy si apoi stergerea randului 4.Dar VB se pare ca nu permite deschiderea unui fisier pt citire+scriere.

2. Copierea rand cu rand din fisierul 1 in fisierul 2.

 isOpen1 = False
	isOpen2 = False
	
	Open tempfile.FileName For Input As #fileNum1
	isOpen1 = True
	Open "c:\aasa.ttt" For Output As #fileNum2
	isOpen2 = True
	
	Do While Not EOF(fileNum1)
		Line Input #fileNum1, sNextLine
		Print #fileNum2, sNextLine
	Loop
	
	
	If isOpen1 Then
		Close fileNum1
	End If

	If isOpen2 Then
		Close fileNum2
	End If

Ori nu gasesc eu cum, ori VB-ul nu ma lasa sa deschid 2 fisiere simultan, deoarece la deschiderea fisierului 2 imi da exceptie cu msg "file already open" (orice as scrie la numele fisierului).

Any solutions?
10x

Back to top

#2
ionut_y

Posted 16 June 2009 - 07:36

Member

Grup: Members
Posts: 836
Înscris: 21.06.2005

	Open "C:\f1.txt" For Input As #1
	Open "C:\f2.txt" For Output As #2
	
	Dim wLinNr As Integer
	
	wLinNr = 0
	Do While Not EOF(1)
		Line Input #1, sNextLine
		wLinNr = wLinNr + 1
		If wLinNr <> 4 Then Print #2, sNextLine
	Loop
	
		Close #1
		Close #2

Back to top

#3
Taw

Posted 16 June 2009 - 09:40

Senior Member

Grup: Senior Members
Posts: 2,084
Înscris: 14.11.2003

Mersi mane, nici acum nu inteleg de ce codul tau merge iar al meu nu a mers.

Back to top

#4
ionut_y

Posted 16 June 2009 - 12:35

Member

Grup: Members
Posts: 836
Înscris: 21.06.2005

Tind sa cred ca fisierele tale nu se mai inchideau dupa prima rulare,la deschidere ai scris

As #fileNum1

la inchidere ai omis caracterul #

Close fileNum1

eu nu am inteles rolul variabilelor "isOpen"

nu mi-a placut numele fisierului

Open tempfile.FileName For Input As #fileNum1

Back to top

#5
Taw

Posted 16 June 2009 - 16:42

Senior Member

Grup: Senior Members
Posts: 2,084
Înscris: 14.11.2003

Am priceput acum, mersi inca o data.

Back to top

#6
ionut_y

Posted 16 June 2009 - 19:57

Member

Grup: Members
Posts: 836
Înscris: 21.06.2005

cu placere

Back to top

Anunturi

Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro

Copiere continut fisier in alt fisier

#1 Taw Posted 15 June 2009 - 16:57

#2 ionut_y Posted 16 June 2009 - 07:36

#3 Taw Posted 16 June 2009 - 09:40

#4 ionut_y Posted 16 June 2009 - 12:35

#5 Taw Posted 16 June 2009 - 16:42

#6 ionut_y Posted 16 June 2009 - 19:57

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
Taw

Posted 15 June 2009 - 16:57

#2
ionut_y

Posted 16 June 2009 - 07:36

#3
Taw

Posted 16 June 2009 - 09:40

#4
ionut_y

Posted 16 June 2009 - 12:35

#5
Taw

Posted 16 June 2009 - 16:42

#6
ionut_y

Posted 16 June 2009 - 19:57