String/シフト

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34

    szAlphabet="abcdefghijklmnopqrstuvwxyz"
    strlen nLength,szAlphabet
        mes "ア  ル  フ  ァ  ベ  ッ  ト  順 -> "+szAlphabet
 
    /* 指定インデックスの文字を先頭に移動する */
    nChar=5 : gosub *LiftChar
        mes "インデックス 5を持ち上げた結果 -> "+ szAlphabet
 
    nChar=0 : gosub *LiftChar
        mes "インデックス 0を持ち上げた結果 -> "+ szAlphabet
 
    nChar=6 : gosub *LiftChar
        mes "インデックス 6を持ち上げた結果 -> "+ szAlphabet
 
    nChar=25 : gosub *LiftChar
        mes "インデックス25を持ち上げた結果 -> "+ szAlphabet
 
    nChar=26 : gosub *LiftChar
        mes "インデックス26を持ち上げた結果 -> "+ szAlphabet
 
    stop
 
*LiftChar
    /* 範囲外インデックスはスキップ */
    if (nChar<0) | (nChar>=nLength) : goto *@f
 
    /* 持ち上げる */
    strmid chCut,szAlphabet,nChar,1
    strmid szFront,szAlphabet,0,nChar
    strmid szBack,szAlphabet,nChar+1,nLength-nChar-1
 
    szAlphabet = chCut+szFront+szBack
*@
    return