Show
Ignore:
Timestamp:
10/07/08 17:37:38 (3 months ago)
Author:
fujidig
Message:

getstr を実装

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/javascript/hsp-on-js/trunk/src/t.hsp

    r20845 r20896  
    1 mes "prepare" 
    2 size = 500000 
    3 sdim a, size + 1 
    4 memset a, '*', size 
    5 mes "start" 
    6 st = gettime(-1) 
    7 repeat 100 
    8         len = strlen(a) 
     1buf = "ABC,DEF,EFG" 
     2i = 0 
     3 
     4repeat 4 
     5        getstr ln, buf, i, ',' 
     6        i += strsize 
     7        mes "ln = " + ln 
     8        mes "strsize = " + strsize 
     9        mes "stat = " + stat 
     10        mes 
    911loop 
    10 ed = gettime(-1) 
    11 mes int(ed - st) 
    12