Groups > microsoft.public.scripting.vbscript > #11381

Re: script to search list of strings in files/directories

From	"Dave \"Crash\" Dummy" <invalid@invalid.invalid>
Newsgroups	microsoft.public.scripting.vbscript
Subject	Re: script to search list of strings in files/directories
Date	2016-09-05 15:41 -0400
Organization	A noiseless patient Spider
Message-ID	<nqkhpi$pkh$1@dont-email.me> (permalink)
References	<422e8189-83a1-48a9-a327-59e2726d0929@googlegroups.com> <nq9scl$dpv$1@dont-email.me> <d9b7ded7-c59f-4ade-b0a7-2770ae7c70d1@googlegroups.com> <nqkf08$fia$1@dont-email.me>

Show all headers | View raw

Here's yet another way:

set fso=CreateObject("Scripting.FileSystemObject")

set MyFuncs=fso.OpenTextFile("MyFuncs.h")
data=lcase(MyFuncs.readAll)
MyFuncs.close

funcs=split(data,"function_")
for x=1 to ubound(funcs)
	funclist=funclist & "function_" & left(funcs(x),instr(funcs(x),"("))
next

set UsageFile=fso.CreateTextFile("UsageFile.txt")

set fldr=fso.getFolder(".")
for each file in fldr.files
	n=lcase(file.name)
	if n<>"myfuncs.h" AND right(n,2)=".h" OR right(n,4)=".cpp" then
		set f=file.OpenAsTextStream
		data=f.readAll
		f.close
		UsageFile.writeLine file.name
		for n= 0 to ubound(split(funclist,"("))
			ptr= InStr(1,data,split(funclist,"(")(n),1)
			if ptr then UsageFile.writeLine split(funclist,"(")(n)
		next
		UsageFile.writeLine
	end if
next
UsageFile.close

-- 
Crash

"I am not young enough to know everything."
~ Oscar Wilde ~

Back to microsoft.public.scripting.vbscript | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

script to search list of strings in files/directories zmau1962@gmail.com - 2016-08-30 00:29 -0700
  Re: script to search list of strings in files/directories "Evertjan." <exxjxw.hannivoort@inter.nl.net> - 2016-08-30 10:52 +0200
  Re: script to search list of strings in files/directories "Mayayana" <mayayana@invalid.nospam> - 2016-08-31 14:22 -0400
    Re: script to search list of strings in files/directories Mau Z <zmau1962@gmail.com> - 2016-08-31 13:05 -0700
      Re: script to search list of strings in files/directories "Evertjan." <exxjxw.hannivoort@inter.nl.net> - 2016-08-31 22:16 +0200
        Re: script to search list of strings in files/directories "Mayayana" <mayayana@invalid.nospam> - 2016-08-31 16:39 -0400
          Re: script to search list of strings in files/directories "Evertjan." <exxjxw.hannivoort@inter.nl.net> - 2016-08-31 22:52 +0200
            Re: script to search list of strings in files/directories "Mayayana" <mayayana@invalid.nospam> - 2016-08-31 20:54 -0400
              Re: script to search list of strings in files/directories "Dave \"Crash\" Dummy" <invalid@invalid.invalid> - 2016-08-31 22:39 -0400
                Re: script to search list of strings in files/directories "Mayayana" <mayayana@invalid.nospam> - 2016-09-01 10:03 -0400
                Re: script to search list of strings in files/directories "Dave \"Crash\" Dummy" <invalid@invalid.invalid> - 2016-09-01 11:09 -0400
                Re: script to search list of strings in files/directories "Mayayana" <mayayana@invalid.nospam> - 2016-09-01 12:45 -0400
                Re: script to search list of strings in files/directories "Dave \"Crash\" Dummy" <invalid@invalid.invalid> - 2016-09-01 13:41 -0400
                Re: script to search list of strings in files/directories "Mayayana" <mayayana@invalid.nospam> - 2016-09-01 15:19 -0400
      Re: script to search list of strings in files/directories "R.Wieser" <address@not.available> - 2016-09-01 09:25 +0200
        Re: script to search list of strings in files/directories Mau Z <zmau1962@gmail.com> - 2016-09-05 07:36 -0700
  Re: script to search list of strings in files/directories "Dave \"Crash\" Dummy" <invalid@invalid.invalid> - 2016-09-01 14:35 -0400
    Re: script to search list of strings in files/directories Mau Z <zmau1962@gmail.com> - 2016-09-05 07:21 -0700
      Re: script to search list of strings in files/directories "Dave \"Crash\" Dummy" <invalid@invalid.invalid> - 2016-09-05 14:43 -0400
      Re: script to search list of strings in files/directories "Dave \"Crash\" Dummy" <invalid@invalid.invalid> - 2016-09-05 14:54 -0400
        Re: script to search list of strings in files/directories "Dave \"Crash\" Dummy" <invalid@invalid.invalid> - 2016-09-05 15:41 -0400
          Re: script to search list of strings in files/directories Mau Z <zmau1962@gmail.com> - 2016-09-05 13:07 -0700
          Re: script to search list of strings in files/directories Mau Z <zmau1962@gmail.com> - 2016-09-05 13:09 -0700
            Re: script to search list of strings in files/directories "Dave \"Crash\" Dummy" <invalid@invalid.invalid> - 2016-09-06 11:33 -0400
  Re: script to search list of strings in files/directories Dr J R Stockton <reply1600@merlyn.demon.co.uk.invalid> - 2016-09-07 23:43 +0100

csiph-web