Find string file 1

[wmbb]

What is the code to find a specific string in a textfile and return the text next to this string ?

example text

[Vector]
flStageXPosition = -24056000
flStageYPosition = -15476000
SpecimenRotation = 2000000
SpecimenTilt = 0
Magnification = 50.000
HighTension = 5000.000
FWD = 10.075

I would like to find the string "SpecimenRotation = " and the script returning with "2000000

 

[ettienne]

Search for reading INI files, [Vector] is a section in the INI file and SpecimenRotation is a setting.

 

[paulmatt]

In the following file, "c:\test.ini":

--------------------
[a]
b=c
--------------------

"c" is returned by the following:

c = System.PrivateProfileString("c:\test.ini", "a", "b")

This works in Word VBA.

 

[fumei]

Or, to put it more specifically...

If you have a file c:\zzz\Test.ini, and it contains:

[Vector]
flStageXPosition = -24056000
flStageYPosition = -15476000
SpecimenRotation = 2000000
SpecimenTilt = 0
Magnification = 50.000
HighTension = 5000.000
FWD = 10.075


then the code:

Sub GetINI_Data()
MsgBox System.PrivateProfileString("c:\zzz\Test.ini", _
   "Vector", "SpecimenRotation")
End Sub

returns a messagebox with "2000000". Look up PrivateProfileString in Help. The syntax is:

expression.PrivateProfileString(FileName, Section, Key)

In the example above:

Filename = c:\zzz\Test.ini
Section = Vector
Key = SpecimenRotation

The returned value is the value of the key SpecimenRotation.

faq219-2884

Gerry
My paintings and sculpture

 

[wmbb]

Thanks for your help, This works fine !
But I have a new challenge for you....

In the file there is also a piece of text not specified by a Section (see example).

***coded text***

Date=11/26/2008
Time=10:25:46 AM
User=supervisor
UserText=sample 12a
UserTextUnicode=5


[Vector]
flStageXPosition = -24056000
flStageYPosition = -15476000
SpecimenRotation = 2000000
SpecimenTilt = 0
Magnification = 50.000
HighTension = 5000.000
FWD = 10.075

Is it also possible to extract the UserText ?

 

[Andrzejek]

If you deal with just 'regular' text file, you can always do:

Open "c:\zzz\Test.ini" For Input As #1
Do While Not EOF(1)   
   Line Input #1, strTextLine  
   If Left$(strTextLine, 9) = "UserText=" Then
      MsgBox Mid$(strTextLine, 10)
      Exit Do
   End If
Loop
Close #1

Have fun.

---- Andy

 

[paulmatt]

My solution would be to insist on a section name, why make life difficult ;-)

If this really is not an option then Andrzejek's solution is fine, as long as "UserText=" occurs before any sections that also contain it.

Paul Rigby

http://www.awgarstone.com

VBA - C# - Delphi