1. Parse through RASPhone.pbk
2. Capture the heading inside [brackets] to a $var
3. Parse for 'PhoneNumber=' line and test for a match on phone number
4. If no match, capture next heading to $var
5. If match found, keep header it was found under
6. Bob's your uncle

Possible problem I forsee is the format of phone number. Some may include hyphens, some spaces, some fewer digits, etc. Can you search on subset (ie. last four digits) of number and ensure you have correct entry?

I'm not promising to write the code, just flowcharting to get an understanding.

[ 23 August 2001: Message edited by: LLigetfa ]

[ 23 August 2001: Message edited by: Ntjazzed ]

My programming prowess is pretty pathetic. Not so good at string manipulation. I suspect though, it would be a combination of ReadLine() and ReadProfileString(). The latter I have never used.

Don't hold your breath, remember my sig.

Hey someone, help me out here! I've risen to my level of incompetence!

code:

---

IF OPEN(1, "C:\kix\rasphone.pbk") = 0
	$cl = ReadLine(1)
	WHILE @ERROR = 0
		if SUBSTR($cl, 1, 1) = "["	
			? "$cl =" $cl ;put your code here
		ENDIF
		$cl = ReadLine(1)
	LOOP
ENDIF
$ = CLOSE(1)
get $

---

3. Once you're there, you query each header section for 'PhoneNumber' with ReadProfileString().

code:

---

$header = "NameOfHeader" ;put your code here
$dev = ReadProfileString("C:\kix\rasphone.pbk", $header, "PhoneNumber")
If @ERROR = 0
  ? "PhoneNumber = " + $dev " ;put your code here
Endif
get $

---

5. G O T ... T O ... F I G H T ... T H E ... U R G E ... T O ... P R O G R A M ...

The rest I leave to you or someone else.

This is a slight departure from my first outline because I realized there may be more than one heading with the same base number. On my PC, there were several. One from the office, one from home, one from out-of-town, etc., all with a different dialing prefix.

Actually, I maybe over-simplified it just a bit. The very first thing you need to do is locate the rasphone.pbk file. Depending on OS and design, they could be per user or 'All Users'. On my Win2k, it resides in C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk\. But then again, what you intend to do with the results is probaably no cake walk either.

[ 24 August 2001: Message edited by: LLigetfa ]

[ 24 August 2001: Message edited by: LLigetfa ]

code:

---

break on
DIM $array[10] ;assuming fewer than 12 entries
$x = 0
; Find headers in .pbk file
IF OPEN(1, "C:\kix\rasphone.pbk") = 0
	$cl = ReadLine(1)
	WHILE @ERROR = 0
		if SUBSTR($cl, 1, 1) = "["	
			$array[$x] = SUBSTR($cl, 2, LEN($cl)-2)
			? "Header $x = " $array[$x]
			$x = $x + 1
		ENDIF
		$cl = ReadLine(1)
	LOOP
ENDIF
$ = CLOSE(1)
get $
; Find phone number in each section
$x = 0
WHILE $array[$x] <> ""
	$dev = ReadProfileString("C:\kix\rasphone.pbk", $array[$x], "PhoneNumber")
	If @ERROR = 0
		? "PhoneNumber = " + $dev
	Endif
	$x = $x + 1
LOOP
get $

---

Where is that Array Boy of The Northern Hemisphere when you need him

Bill - here is your chance to increase ego again