84 lines
3.7 KiB
Plaintext
84 lines
3.7 KiB
Plaintext
|
|
Option Explicit
|
|
Const ForReading = 1
|
|
Dim TheString 'The String we are looking For
|
|
Dim g_ShellObj 'Object used For sending text To a message box
|
|
''''''''''''''''''''''''''''''''''''''
|
|
'change INI File here
|
|
Const Filespec="\SERVERC$FILENAME.INI"
|
|
''''''''''''''''''''''''''''''''''''''
|
|
Set g_ShellObj = CreateObject("Wscript.Shell")
|
|
'Starting Main function
|
|
''''''''''''''''''''''''''''''''''''''
|
|
'Proper use is: ReadFromINI(INI file, Item in brackets, Item we are looking for)
|
|
TheString=ReadFromINI(Filespec,"PutBracketItemHere","PutItemBeingLookedForHere")
|
|
''''''''''''''''''''''''''''''''''''''
|
|
|
|
'This shows what has been found
|
|
WScript.Echo Now() & " --> Ended **" & TheString & "**"
|
|
function ReadFromINI(INIfile,BracketItem,TheItem)
|
|
Dim fsoIN, Fin 'Objects For Reading.
|
|
Dim FoundBracket, FoundTheItem 'Keeps tracks of what we have found so far.
|
|
Dim CurrStr 'Last String that was read from the INI file.
|
|
Dim I 'Integer used For stepping through CurrStr.
|
|
Dim StringFound 'String we are looking for.
|
|
Dim C 'Current character While stepping through CurrStr
|
|
'Initialize variables
|
|
FoundBracket=False
|
|
FoundTheItem=False
|
|
CurrSTr=""
|
|
StringFound=""
|
|
'Create an object and open file For reading.
|
|
Set fsoIN = CreateObject("Scripting.FileSystemObject")
|
|
Set Fin = FsoIN.OpenTextFile(INIfile, ForReading)
|
|
'Stepping through file line by line To find what we are looking for.
|
|
Do While Fin.AtEndOfStream <> True
|
|
CurrStr=Fin.readline
|
|
if left(CurrStr,1)="[" Then 'Looking For an item in brackets
|
|
if ucase(mid(CurrSTr,2,len(BracketItem)))=ucase(BracketItem) Then
|
|
FoundBracket=True
|
|
Else
|
|
FoundBracket=False
|
|
End if
|
|
Else
|
|
'Once we are within the right section we start searching For
|
|
'the correct item we are looking for.
|
|
if FoundBracket Then
|
|
'Compare Each item To the item we are looking for.
|
|
if ucase(left(CurrSTr,len(TheItem)))=ucase(TheItem) Then
|
|
'We found the item! We must find where the equal sign
|
|
'is so we don't include it in our result.
|
|
I = len(TheItem)+1
|
|
Do While I<len(CurrStr)
|
|
C = MID(CurrStr,I,1)
|
|
if C<>" " And C<>"=" Then
|
|
'This is Not the right item but similar name.
|
|
'example: We're looking For "TheGreatThing" While
|
|
'we found "TheGreatThingy". (Notice the "y")
|
|
i=Len(CurrStr)+10
|
|
Else
|
|
if C="=" Then
|
|
'We found the equal sign, we can now create our
|
|
'String!
|
|
StringFound=Right(CurrStr,Len(CurrStr)-I)
|
|
I=Len(CurrStr)
|
|
FoundTheItem=True
|
|
Else
|
|
'Just a space, we got To keep stepping through
|
|
'the String until we find that equal sign.
|
|
I=I+1
|
|
End if
|
|
End if
|
|
Loop
|
|
End if
|
|
End if
|
|
End if
|
|
Loop
|
|
'Close the file and clear the object.
|
|
Fin.close
|
|
Set fsoIN=Nothing
|
|
'Can't forget To Set the function's variable
|
|
ReadFromINI=TRIM(StringFound)
|
|
End function
|
|
'Have a nice day!
|