>> Otevře soubor1.txt
>> Otevře soubor2.txt
>> Čte soubor1.txt řádek po řádku
>> Jestliže vyhoví řádek podmínce, dejme tomu začíná $ je zapsán
>> do soubor2.txt ,ve kterém je definována hlavička, patička -
>> čili zůstanou zachovány 3 první a 3 poslední řádky Soubory zavře.
> Jenom poznamka k algoritmu:
> Urcite bude jednodusi mit zvlast soubory s hlavickou a patickou, ten s
> hlavickou na uvod nacist CELY, pak zapsat radky vyhovujici podmince, no
> a nakonec po projeti cyklu pripojit CELY soubor s patickou. Vyhnes se
> tak moznemu prepisovani celeho programu pokud dojde ke zmenam v hlavicce
> - paticce. A navic to bude cely jednodussi :)
> Martin
jo, to je pravda, takhle by to mohlo vypadat, potrebujes akorat
soubor1.txt, hlavicka.txt a paticka.txt. Soubor2.txt se vytvori sam,
respektive prepuise stavajici.
-pp21-
'--------------------------------------------------------------------
Dim Soubor1, Soubor2, Hlavicka, Paticka, fso, CtiData, PisData, Radek
Soubor1 = "soubor1.txt"
Soubor2 = "soubor2.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set CtiData = fso.OpenTextFile("hlavicka.txt")
Hlavicka = CtiData.ReadAll
CtiData.Close
Set CtiData = fso.OpenTextFile("paticka.txt")
Paticka = CtiData.ReadAll
CtiData.Close
Set CtiData = fso.OpenTextFile(Soubor1)
Set PisData = fso.OpenTextFile(Soubor2, 2, True)
PisData.Write Hlavicka
Do While Not CtiData.AtEndOfStream
Radek = CtiData.ReadLine
If Left(Radek, 1) = "$" Then PisData.WriteLine Radek
Loop
PisData.Write Paticka
CtiData.Close
PisData.Close
'--------------------------------------------------------------------
This archive was generated by hypermail 2.1.2 : 19. 04. 2002, 09:58 CEST