Det är ibland svårt och beskriva vad man vill göra så jag gjorde en skiss på mitt problem. För den intresserade: http://hem.fyristorg.com/hanii/LasaFiler.htm

/hani

Hej
Blir lite konfunderad när du skriver 1, 3, 4 , 5 i Fil 2 tex
Vad menas skall man hoppa över rad 2 eller kommer
raderna logiskt uppe ifrån och ner dvs 3 motsv rad 2 ??

undrar
Sven

Jag hade bara en tvåa i bild, så jag får skylla på det om jag inte riktigt förstått :-)

För övrigt kan Intresseklubben notera att du enligt Expressen bor mellan Lund och Karlskrona. De har inte rättat det än trots att jag skrev e-mail till dem igår.

Men över till ditt problem. Att lösa det är ingen konst, problemet är snarare att skriva koden i Basic eftersom jag inte programmerat i det språket på tolv år. Men jag ska göra ett försök... (har kikat lite på de andras kod)

<code>
dim isReadingFile1 as integer
dim isReadingFile2 as integer
dim bufferFile1 as string
dim bufferFile2 as string
dim isEOFFile1 as integer
dim isEOFFile2 as integer
dim fso as new scripting.filesystemobject
dim file1 as scripting.textstream
dim file2 as scripting.textstream
dim outfile as scripting.textstream

isReadingFile1 = 0
isReadingFile2 = 0
bufferFile1 = ""
bufferFile2 = ""
isEOFFile1 = 0
isEOFFile2 = 0

file1 = fso.opentextfile("c:/förstafilen.txt", forreading, true)
file2 = fso.opentextfile("c:/andrafilen.txt", forreading, true)
outfile = fso.opentextfile("c:/resultatfilen.txt", forwriting, true)

do until isEOFFile1 = 1 and isEOFFile2 = 1

if isReadingFile1 = 1 then
if bufferFile1 <> "" then
outfile.writeline bufferFile1
end if
bufferFile1 = file1.readline
if file1.atendofstream then
isEOFFile1 = 1
else if left(bufferFile1, 1) = "1" and isEOFFile2 = 0 then
isReadingFile1 = 0
isReadingFile2 = 1
else then
outfile.writeline bufferFile1
bufferFile1 = ""
end if
else if isReadingFile2 = 1 then
if bufferFile2 <> "" then
outfile.writeline bufferFile2
end if
bufferFile2 = file2.readline
if file2.atendofstream then
isEOFFile2 = 1
else if left(bufferFil2, 1) = "1" and isEOFFile1 = 0 then
isReadingFile1 = 1
isReadingFile2 = 0
else then
outfile.writeline bufferFile2
bufferFile2 = ""
end if
else then
bufferFile1 = file1.readline
end if
loop

file1.close
file2.close
outfile.close
</code>