PC Toledo

Código: Selecionar todos

function main()
public arq, dest, ler:=space(1), ct:=0, acm:= "", arquivos := {},;
		diretorio:="", num:=0, arq33, separa := replicate("=",80)

	cls

	arq := fopen("lista.txt")
	destc :=  fcreate("harbour2.txt",2)
	ct:= 1	
	
	do while.t.
		acm := ""
		do while.t.
			fread(arq,@ler,1) 	
			if ler <> ":"
				acm := acm + ler
				IF LEN(ALLTRIM(ACM)) == 0
					LER = ""
					EXIT
				ENDIF
			else
				exit
			endif
		enddo

		if ler == ""
			exit
		endif

		diretorio = alltrim(strtran(acm,"./","/")) + "/"

		acm := ""
		do while.t.
			fread(arq,@ler,1) 	
			if ler <> "/"
				acm := acm + ler
			else
				exit
			endif
		enddo

		acm = strtran(acm,chr(13),"")
		acm = strtran(acm,chr(10),"")
		acm = strtran(acm,"//","/")

		CT := 1
		do while.t.
			arq33 := ""
			do while.t.
				arq33 += substr(acm,ct,1)
				if substr(arq33,len(arq33),1) == ","
					file55 = alltrim(diretorio + alltrim(arq33))
					aadd(arquivos,substr(file55,1,len(file55)-1))
					++ct
					exit
				endif	

				++ct
				if ct > len(acm)
					file55 = alltrim(diretorio + alltrim(arq33))
					aadd(arquivos,substr(file55,1,len(file55)-1))
					exit
				endif
			enddo	
			if ct > len(acm)
				exit
			endif
		enddo
		
	enddo

	contador := 1
	for ct:= 1 to len(arquivos)

		// gravando documentação
		if (".prg" $ lower(arquivos[ct])) //.or. (".ch" $ lower(arquivos[ct])) 
			leitura := memoread(arquivos[ct])
			fwrite(destc, separa,len(separa))
			fwrite(destc, chr(10),1)
			fwrite(destc,"["+strzero(contador,4)+ "] ",7)
			fwrite(destc, arquivos[ct],len(arquivos[ct]))
			fwrite(destc, chr(10),1)
			fwrite(destc, separa,len(separa))
			fwrite(destc, chr(10),1)
			fwrite(destc, leitura,len(leitura))
			fwrite(destc, chr(10),1)
			++contador
		endif
	next

	fclose(arq)
	fclose(destc)

return nil