How to parse a file

The script example shown below permit parse a file, in this exemple we use estat.htm to analise and we extract the information below.

• Gsm IMEI
  The International Mobile Equipment Identity is a number, usually unique, to identify GSM . The IMEI number is used by a GSM network to identify valid devices and therefore can be used for stopping a stolen phone from accessing that network
• GSM IMSI
  An International Mobile Subscriber Identity is a unique identification associated with all GSM,UMTS and LTE network mobile phone users
• Gsm CillID
  This is a generally unique number used to identify each Base tranceiver station (BTS) or sector of a BTS within a location area code (LAC) if not within a GSM network
• Gsm LAC
  Local area code

Explanation

We use the "exp:$dtES $ftT" to load information from "estat.htm" where GsmIMEI, GsmINSI, GsmCellId & GsmLAC are located.

"I% = INSTR 1,A$,"GsmIMEI"" is use as a filter to extract from "estat.htm" file only the value we want, in this case GsmIMEI

GSM_Info:  
	OPEN "exp:$dtES $ftT" FOR TEXT INPUT AS 1
	Loop:  
		A$ = Get 1  
		IF A$<>"" THEN  
			I% = INSTR 1,A$,"GsmIMEI"  
		IF I% = 1 THEN PRINT A$  
			J% = INSTR 1,A$,"GsmIMSI"  
		IF J% = 1 THEN PRINT A$  
			K% = INSTR 1,A$,"GsmCellId"  
		IF K% = 1 THEN PRINT A$  
			L% = INSTR 1,A$,"GsmLAC"  
		IF L% = 1 THEN PRINT A$  
		EndIf  
		If A$ <>"" Then GOTO Loop  
	Close 1
End