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
    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


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

	OPEN "exp:$dtES $ftT" FOR TEXT INPUT AS 1
		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$  
		If A$ <>"" Then GOTO Loop  
	Close 1