Read value from text file

[autoitxp]

Hi

my text.txt file got data like this i just want to pick or get value of ID how to do that need ur help

name= xxxx

subject = xxxx

email = xxxx

ID = 23123

number = xxxxxx

[JohnOne]

There are a number of ways to carry out such a task

You should look at these functions in the helpfile to spawn some ideas

_FileCountLines

FileRead

FileReadLine

StringSplit

StringInStr

_FileReadToArray

[sahsanu]

Maybe this could help you to start with your script:

$result = StringRegExp(FileRead("text.txt"),"ID\s=\s(.*)",1)
If IsArray($result) Then
    MsgBox(0,"","ID is " & $result[0])
Else
    MsgBox(0,"","I didn't find the ID")
EndIf

Edited April 25, 2011 by sahsanu

[wakillon]

A bit like sahsanu solution !

$sFile = @DesktopDir & "\mytext.txt"
$sText = FileRead ( $sFile )
$aHold = StringRegExp ( $sText, '(?s)(?i)ID = (.*?)\r', 3 ) 
FileClose ( $sFile )
ConsoleWrite ( "$aHold : " & Number ( $aHold[0] ) & @Crlf )

[antonioj84]

On 26/04/2011 at 3:13 AM, wakillon said:

A bit like sahsanu solution !

 

$sFile = @DesktopDir & "\mytext.txt"
$sText = FileRead ( $sFile )
$aHold = StringRegExp ( $sText, '(?s)(?i)ID = (.*?)\r', 3 ) 
FileClose ( $sFile )
ConsoleWrite ( "$aHold : " & Number ( $aHold[0] ) & @Crlf )

 

this example does not work

[wakillon]

44 minutes ago, antonioj84 said:

this example does not work

$sFile = @DesktopDir & "\mytext.txt"
$sText = FileRead ( $sFile )
$aHold = StringRegExp ( $sText, '(?s)(?i)ID = (.*?)\r', 3 )
ConsoleWrite ( "$aHold : " & Number ( $aHold[0] ) & @Crlf )

Script return well the Id value, $aHold : 23123 

[antonioj84]

4 minutes ago, wakillon said:

$sFile = @DesktopDir & "\mytext.txt"
$sText = FileRead ( $sFile )
$aHold = StringRegExp ( $sText, '(?s)(?i)ID = (.*?)\r', 3 )
ConsoleWrite ( "$aHold : " & Number ( $aHold[0] ) & @Crlf )

Script return well the Id value, $aHold : 23123 

 

 

 

it returns value 0
However, the code below works.

$result = StringRegExp(FileRead("getEMVRids.txt"),"ID\s=\s(.*)",1)
If IsArray($result) Then
    MsgBox(0,"","ID is " & $result[0])
Else
    MsgBox(0,"","I didn't find the ID")
EndIf










my text file

emvRids.rids[x].addContactlessData = 1
emvRids.rids[x].rid = A000000025
etype = 4
emvRids.rids[x].addContactlessData = 1
emvRids.rids[x].rid = A000000065
etype = 5
emvRids.rids[x].addContactlessData = 0
emvRids.rids[x].rid = A000000152
etype = 6
emvRids.rids[x].addContactlessData = 0

ID = 23123

$result = StringRegExp(FileRead("text.txt"),"ID\s=\s(.*)",1)
If IsArray($result) Then
    MsgBox(0,"","ID is " & $result[0])
Else
    MsgBox(0,"","I didn't find the ID")
EndIf

Edited December 30, 2016 by antonioj84

[wakillon]

Try to use the example with "text.txt" instead of "mytext.txt"

[antonioj84]

5 minutes ago, wakillon said:

Try to use the example with "text.txt" instead of "mytext.txt"

no change

[wakillon]

Try this

$sFile = @DesktopDir & "\text.txt"
ConsoleWrite ( 'FileExists ? : ' & FileExists ( $sFile ) & @Crlf )

If the text file is well on your Desktop, this script will return 1

[antonioj84]

it did return 1, i am using the latest autoit beta  with windows 10

[wakillon]

35 minutes ago, antonioj84 said:

it did return 1, i am using the latest autoit beta  with windows 10

For me with current release or latest beta with Win 7 or Win 8.1 it return well 23123

text.txt

Edited December 30, 2016 by wakillon

[careca]

22 hours ago, wakillon said:

Try to use the example with "text.txt" instead of "mytext.txt"

Exactly, and it worked here.

[wakillon]

Thanks Careca

i really don't know why antonioj84 can't get it to work.

Are you using Win 10 ?

[mikell]

Using the txt file provided by antonioj84 :

emvRids.rids[x].addContactlessData = 1
emvRids.rids[x].rid = A000000025
etype = 4
emvRids.rids[x].addContactlessData = 1
emvRids.rids[x].rid = A000000065
etype = 5
emvRids.rids[x].addContactlessData = 0
emvRids.rids[x].rid = A000000152
etype = 6
emvRids.rids[x].addContactlessData = 0

ID = 23123

There are many reasons for this regex to fail. One among others :

$result = StringRegExp(FileRead("text.txt"), '(?s)(?i)ID = (.*?)\r', 3 )

MsgBox(0,"","$result[0] = " & $result[0] & @crlf & "Number($result[0]) = " & Number($result[0]))

[wakillon]

The better way to ask for help is to show the text on which he try the script

and not to edit his post (for insert his text) after i have received the notification...

[mikell]

Right  

[antonioj84]

On 31/12/2016 at 11:05 AM, mikell said:

Using the txt file provided by antonioj84 :

emvRids.rids[x].addContactlessData = 1
emvRids.rids[x].rid = A000000025
etype = 4
emvRids.rids[x].addContactlessData = 1
emvRids.rids[x].rid = A000000065
etype = 5
emvRids.rids[x].addContactlessData = 0
emvRids.rids[x].rid = A000000152
etype = 6
emvRids.rids[x].addContactlessData = 0

ID = 23123

There are many reasons for this regex to fail. One among others :

$result = StringRegExp(FileRead("text.txt"), '(?s)(?i)ID = (.*?)\r', 3 )

MsgBox(0,"","$result[0] = " & $result[0] & @crlf & "Number($result[0]) = " & Number($result[0]))

 

here is the file

mytext.txt

[mikell]

;$result = StringRegExp(FileRead("text.txt"),"ID\s=\s(.*)",1)

#Include <Array.au3>

$result = StringRegExp(FileRead("text.txt"), '(?s)(?i)ID = (.*?)\r', 3 )
_ArrayDisplay($result, "1")

; now remove the useless options. then it works BUT it will fail if the text contains no trailing newline sequence because of the final \r 

$result = StringRegExp(FileRead("text.txt"), 'ID = (.*?)\r', 3 )
_ArrayDisplay($result, "2")

; if we remove the \r then we get an empty string - the lazy ? makes (.*?) able to match an empty string

$result = StringRegExp(FileRead("text.txt"), 'ID = (.*?)', 3 )
_ArrayDisplay($result, "3")

; here it is

$result = StringRegExp(FileRead("text.txt"), 'ID = (.*)', 3 )
_ArrayDisplay($result, "4")

 

[antonioj84]

IT works thank you all and Mikell