Preferred File Format:

gateway1|homesrv|datasrv|alias
gateway2|homesrv|datasrv|alias

quote:

---

ReadProfileString()

Action: Retrieves a string from an initialization file.
Syntax: READPROFILESTRING ("file name", "section", "key")
Parameters: File name
- A string that names the initialization file. If this parameter does not include a full path, Windows searches for the file in the Windows directory.
Section
- A string that specifies the section containing the key name. If this parameter is empty, READPROFILESTRING returns all section names in the file.

Key
- A string containing the key name whose associated string is to be retrieved. If this parameter is empty, all key names in the section specified by section are returned.

Remarks: This function is provided for compatibility with 16-bit Windows – based applications. Win32 – based applications store initialization information in the registry.
Returns: 0 Function returns a string representing the value of the specified key
Error code Function failed

Example: $dev = ReadProfileString(“win.ini”, "Windows", "Device")
If @ERROR = 0
? "Windows device = " + $dev
Endif

---

[ 04 September 2001: Message edited by: LLigetfa ]

code:

---

[Gateway]
10.198.1.1=homesrv1|datasrv1|alias1
10.198.1.2=homesrv2|datasrv2|alias2

---

Then with some code, read out the desired line:

code:

---

break on
$key = "10.198.1.1"
$dev = ReadProfileString("C:\KIX\GW.ini", "Gateway", "$Key")
? $dev
get $

---

I used your example ( | ) for a delimiter. Just so long as it doesn't naturally occur in the data. Then with string manipulation, split out the values.
See Bryce's examples in http://kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=2&t=002142 on using SPLIT or SUBSTR.

code:

---

;using Les's example to read in the data.
break on
$key = "10.198.1.1"
$dev = ReadProfileString("C:\KIX\GW.ini", "Gateway", "$Key")
;$dev now is equal to "homesrv1|datasrv1|alias1"
;split the data in $dev into its separate parts, 
;using "|" as a separator
$dev = split($dev,"|")
;check to make sure that the split command was ok, 
;and the correct number of parts are there
if UBOUND($dev) = 2
	$homesrv = $dev[0]
	$datasrv = $dev[1]
	$Alias   = $dev[2]
endif

---