strscan function to scan string characters in axapta

This is a sample of code how to use of strscan function in axapta to scan string from string.

 void ArrayAccount()  
 {  
 //s = "";  
 // len = strlen( _s );  
 // pos = strfind( _s, _delimeter, len, -len );  
 // s = strdel( _s, 0, pos );  
 cntAc =1;  
 name = System.Convert::ToString(BHead);  
 Accountname[cntAc] = LedgerTable::find(name).AccountName;  
 len = strlen(name);  
 for (i = 0; i<=len;i++)  
 { pos = strscan( name, ".", strlen( name ), 0 - strlen( name ) );  
 fName = strdel( name, pos, strlen( name ) - pos + 1 );  
 lastName = strdel( name, 1, pos ); if (FName != "")  
 { name = fName; cntAc++;  
 Accountname[cntAc] = LedgerTable::find(name).AccountName;  
 }  
  }  
  }