Combine Text Files
I wrote this prgram to augment MRTG (Multi Router Traffic Grapher). Each night i generate new configuration files for all my routers, when that finishes this program combines all the files into one primary configuration file. Please Vote if you like it! :)
AI
AI 摘要: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
源代码
Dim sdir, string1, string2
sdir = Dir("\\hurricane\c$\newrouters\*.cfg")
Open "c:\windows\desktop\mrtgcfg.cfg" For Output As #1
Do While sdir <> ""
Open "\\hurricane\newrouters\" & sdir For Input As #2
Do While Not EOF(2)
Line Input #2, string1
Print #1, string1
Loop
Debug.Print sdir
Close #2
sdir = Dir()
Loop
Close #1
原始评论 (3)
从 Wayback Machine 恢复