View topic - Improved IniRead (reads spaces) • AutoHotkey Community

View unanswered posts | View active topics

Board index » AutoHotkey » Support

All times are UTC [ DST ]

Improved IniRead (reads spaces)

Page 1 of 1

[ 9 posts ]

Print view | E-mail friend

Previous topic | Next topic

Author

Message

Kerry

Post subject: Improved IniRead (reads spaces)

Posted: September 4th, 2006, 12:16 am

Joined: July 20th, 2006, 6:41 pm
Posts: 144
Location: Los Angeles

Would anyone know how to do this or give me a headstart?

-Kerry

_________________
String Manipulator - GrabIco

Last edited by Kerry on September 4th, 2006, 1:08 am, edited 1 time in total.

Top

polyethene

Post subject:

Posted: September 4th, 2006, 12:33 am

Joined: August 11th, 2004, 1:47 am
Posts: 5347
Location: UK

Try this function

Code:

IniRead(Filename, Section, Key, Default = "") {
   FileRead, text, *t %Filename%
   StringTrimLeft, text, text, InStr(text, "`n[" . Section . "]`n")
   Loop, 8 {
      sp := sp . " "
      StringReplace, text, text, %Key%%sp%=, %Key%=
      If ErrorLevel
         Break
   }
   start := InStr(text, "`n" . Key . "=")
   If !start
      Return, Default
   start += StrLen(Key) + 2
   StringMid, Value, text, start, InStr(text, "`n", false, start) - start
   Return, Value
}

_________________
GitHub • Scripts • IronAHK • Contact by email not private message.

Top

Kerry

Post subject:

Posted: September 4th, 2006, 9:33 am

Joined: July 20th, 2006, 6:41 pm
Posts: 144
Location: Los Angeles

I tried it.. wasn't working for me:

test.ahk

Code:

IniRead(Filename, Section, Key, Default = "") {
   MsgBox %Filename%
   FileRead, text, *t %Filename%
   StringTrimLeft, text, text, InStr(text, "`n[" . Section . "]`n")
   Loop, 8 {
      sp := sp . " "
      StringReplace, text, text, %Key%%sp%=, %Key%=
      If ErrorLevel
         Break
   }
   start := InStr(text, "`n" . Key . "=")
   If !start
      Return, Default
   start += StrLen(Key) + 2
   StringMid, Value, text, start, InStr(text, "`n", false, start) - start
   Return, Value
}
IniFile := "test.ini"
string := IniRead(IniFile, User, Name)
MsgBox |%string%|
IniRead NewString, test.ini, User, Name
MsgBox |%NewString%|

test.ini

Code:

[User]
Name= s s 

-Kerry

_________________
String Manipulator - GrabIco

Top

PhiLho

Post subject:

Posted: September 4th, 2006, 9:44 am

Joined: December 27th, 2005, 1:46 pm
Posts: 6837
Location: France (near Paris)

Kerry wrote:

IniFile := "test.ini"
string := IniRead(IniFile, User, Name)
MsgBox |%string%|
IniRead NewString, test.ini, User, Name
MsgBox |%NewString%|
[/code]

Command vs. function:
string := IniRead(IniFile, "User", "Name")
IniRead NewString, test.ini, User, Name

or add:
User = User
Name = Name
before the function call

_________________

vPhiLho := RegExReplace("Philippe Lhoste", "^(\w{3})\w*\s+\b(\w{3})\w*$", "$1$2")

Top

MsgBox

Post subject:

Posted: September 4th, 2006, 10:42 am

Joined: November 17th, 2005, 10:14 pm
Posts: 196
Location: Leicester, UK

Kerry, don't feel bad :lol:

Top

Kerry

Post subject:

Posted: September 4th, 2006, 11:20 am

Joined: July 20th, 2006, 6:41 pm
Posts: 144
Location: Los Angeles

Thanks MsgBox... lol

Well I tried both of those and it's still not working, but maybe I can redeem myself by fixing the function?

This worked (note the commented line)

And thanks for that PhilHo... I believe my lack of sleep is finally catching up with me

Code:

IniRead(Filename, Section, Key, Default = "") {
   FileRead, text, *t %Filename%
   StringTrimLeft, text, text, InStr(text, "`n[" . Section . "]`n")
   Loop, 8 {
      sp := sp . " "
      StringReplace, text, text, %Key%%sp%=, %Key%=
      If ErrorLevel
         Break
   }
   start := InStr(text, "`n" . Key . "=")
   If !start
      Return, Default
   start += StrLen(Key) + 2
   StringMid, Value, text, start
   ;, InStr(text, "`n", false, start) - start
   Return, Value
}
string := IniRead("test.ini", "User", "Name")
MsgBox |%string%|

_________________
String Manipulator - GrabIco

Top

polyethene

Post subject:

Posted: September 4th, 2006, 11:33 am

Joined: August 11th, 2004, 1:47 am
Posts: 5347
Location: UK

With that, you'll get wrong values with other keys. Use this improved version instead:

Code:

IniRead(Filename, Section, Key, Default = "") {
   FileRead, text, *t %Filename%
   text = `n%text%`n
   StringTrimLeft, text, text, InStr(text, "`n[" . Section . "]`n")
   Loop, 8 {
      sp := sp . " "
      StringReplace, text, text, %Key%%sp%=, %Key%=
      If ErrorLevel
         Break
   }
   start := InStr(text, "`n" . Key . "=")
   If !start
      Return, Default
   start += StrLen(Key) + 2
   StringMid, Value, text, start, InStr(text, "`n", false, start) - start
   Return, Value
}

_________________
GitHub • Scripts • IronAHK • Contact by email not private message.

Top

Kerry

Post subject:

Posted: September 4th, 2006, 9:23 pm

Joined: July 20th, 2006, 6:41 pm
Posts: 144
Location: Los Angeles

Ok, cool, thank you!

_________________
String Manipulator - GrabIco

Top

Kerry

Post subject:

Posted: September 12th, 2006, 7:08 am

Joined: July 20th, 2006, 6:41 pm
Posts: 144
Location: Los Angeles

Titan, would it be easy to write an IniWrite that has the same functionality? The same one will write spaces, but it won't get rid of them. In other words, it adds spaces, but doesn't set it to be the amount of spaces in a variable.

-Kerry

_________________
String Manipulator - GrabIco

Top

Page 1 of 1

[ 9 posts ]

Board index » AutoHotkey » Support

All times are UTC [ DST ]

Who is online

Users browsing this forum: BrandonHotkey, Maestr0 and 63 guests

You can post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum