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