如果每次都要读取所有数据就用这种方法，如果每次只读写一个数据建议使用指针的方式，可以节省系统资源。

写入：

'I是指针

SmartTags("xx")(SmartTags("I"))=SmartTags("A")

SmartTags("I")=SmartTags("I")+1

IF SmartTags("I")>MAX THEN 

 SmartTags("I")=0

END IF

读取的时候就可以I位就是第一位，其他的按顺序往后排。

‘T是要读取的位号，MAX是数组数据量

dim J

IF SmartTags("I")-SmartTags("T")>=0 THEN 

J=SmartTags("I")-SmartTags("T")

ELSE

J=MAX-SmartTags("I")-SmartTags("T")

END IF;

’SmartTags("xx")(J)就是需要读取的位

如果数据量不大看不出差距，，数据量越大这种方式的优势更明显。