MS Excel

Téma: Open file for append

Zaslal/a Richard99 1.6.2011 9:40

Dobrý den,

poitřeboval bych něco takového viz následující kód, s jediným rozdílem, aby se následující záznam připojoval na začátek souboru

Open "text.txt" For Append As #1
print #1, " 1. řádek textu"
print #1, " 2. řádek textu"
close #1

děkuji

Richard

Zaslat odpověď >

Jeza.m(1.6.2011 15:31)#005143

Když nevím vezmu to oklikou :-)
Nejprve načíst celý text do proměnné, do jiné si vložit nový řádek a pak komplet texťák přepsat spojením těchto dvou proměnných ve zvoleném pořadí (Print #1, temp1 & vbNewLine & temp2)

Public Sub pok()
Dim temp1, temp2 As String

Open "D:\text.txt" For Input As #1
temp2 = Input$(LOF(1), 1)
Close #1

temp1 = Left(temp2, InStr(1, temp2, ".", vbTextCompare) - 1) + 1 & ". řádek textu"

Open "D:\text.txt" For Output As #1
Print #1, temp1 & vbNewLine & temp2
Close #1

End Sub

M@citovat

Richard99(2.6.2011 8:21)#005147

Dík za odpověď,

sice jsem to nerozchodil, ale inspirovalo mě to, dopadlo to takhle a funguje to

Sub append_file(text As String)
Dim A(1001) As String
Open "D:\Text.txt" For Input As #1
For i = 2 To 1001
Input #1, A(i)
If EOF(1) Then
A(i + 1) = "HGFN*/))(*&^%"
Exit For
End If
Next i
Close #1
Open "D:\Text.txt" For Output As #1
A(1) = text
For i = 1 To 1001
If A(i) = "HGFN*/))(*&^%" Then Exit For
Print #1, A(i)
Next i
Close #1
End Subcitovat

Téma: Open file for append

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje