How difficult would it be to implement the following:
PARSE a$, b$(i)
with array b$ successively filled from element i.
PARSE a$, b$(i)
with array b$ successively filled from element i.
#COMPILE EXE #DIM ALL FUNCTION PBMAIN () AS LONG LOCAL baseMem, ii AS LONG, baseMemStr, rndStr AS STRING baseMemStr = SPACE$(560000) rndStr = "dk5t8wsy6agwikygo0h9r8whwbedkifoifg8iedyuwy373itiusjalkedktgohlhiorduir4u4reu7w326" & _ "y2quwsjedkjru4rueujswik4874e7u3wu47847u373wyuwajrfikruedu2w7u27u32" rndStr = REPEAT$(10, rndStr) baseMem = STRPTR(baseMemStr) DIM sa(1000) AS STRING * 128 AT baseMem + 128000 PARSE rndStr, sa(), "s" REDIM sa(2000) AS STRING * 128 AT baseMem FOR ii = 1000 TO 1010 ? sa(ii) NEXT ? "k" END FUNCTION
#COMPILE EXE #DIM ALL FUNCTION PBMAIN () AS LONG LOCAL a$,i& i& = 1 a$ = FORMAT$(i&,"000") + STRING$(i&,64+i&) FOR i& = 2 TO 5 a$ = a$ +$CRLF + FORMAT$(i&,"000") + STRING$(i&,65+i&) NEXT DIM pa(1 TO 10) AS STRING DIM ta(1 TO 5) AS STRING AT VARPTR(pa(1)) PARSE a$, ta(),$CRLF REDIM ta(1 TO 5) AS STRING AT VARPTR(pa(6)) PARSE a$, ta(),$CRLF FOR i& = 1 TO 10 ? pa(i&) NEXT WAITKEY$ END FUNCTION
#COMPILE EXE #DIM ALL FUNCTION PBMAIN () AS LONG LOCAL baseMem, ii AS LONG, baseMemStr, rndStr AS STRING baseMemStr = STRING$(560000, 0) rndStr = "dk5t8wsy6agwikygo0h9r8whwbedkifoifg8iedyuwy373itiusjalkedktgohlhiorduir4u4reu7w326" & _ "y2quwsjedkjru4rueujswik4874e7u3wu47847u373wyuwajrfikruedu2w7u27u32" rndStr = REPEAT$(10, rndStr) baseMem = STRPTR(baseMemStr) DIM sa(1000) AS ASCIIZ * 128 AT baseMem + 128000 PARSE rndStr, sa(), "s" REDIM sa(2000) AS ASCIIZ * 128 AT baseMem FOR ii = 997 TO 1010 'here, show a few empty, available elements first ? sa(ii) NEXT ? "k" END FUNCTION
We process personal data about users of our site, through the use of cookies and other technologies, to deliver our services, and to analyze site activity. For additional details, refer to our Privacy Policy.
By clicking "I AGREE" below, you agree to our Privacy Policy and our personal data processing and cookie practices as described therein. You also acknowledge that this forum may be hosted outside your country and you consent to the collection, storage, and processing of your data in the country where this forum is hosted.
Comment