【QBASIC互換!?】FreeBasic【GPL】

【QBASIC互換!?】FreeBasic【GPL】at TECH

【QBASIC互換!?】FreeBasic【GPL】 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

1063:デフォルトの名無しさん
 16/12/15 21:14:46.37 9nAvfrOI.net
For IAA = &h20 To &h7E 
    IBB = IBB  + 1 
    ChacterGLstring(IAA) = Mid$(GLstring, IBB, 2) 
    IBB = IBB  + 1 
  Next IAA 
 
  IF (ChacterType = 2) then 
    'ASC半角カタカナを全角平仮名に書き換える 
    IBB = 0 
    For IAA = &hA0 To &hDF 
      IBB = IBB  + 1 
      ChacterGHstring(IAA) = Mid$(GHstring2, IBB, 2) 
      IBB = IBB  + 1 
    Next IAA 
    ChacterGAsetFig2 = ChacterType 
  else 
    'ASC半角カタカナを全角片仮名に書き換える 
    IBB = 0 
    For IAA = &hA0 To &hDF 
      IBB = IBB  + 1 
      ChacterGHstring(IAA) = Mid$(GHstring1, IBB, 2) 
      IBB = IBB  + 1 
    Next IAA 
    ChacterGAsetFig2 = 1 
  End if 
  ChacterGAsetFig1 = 2 
End if

1064:デフォルトの名無しさん
 16/12/15 21:15:32.70 9nAvfrOI.net
BBstring = "" 
For IAA = 1 to Len(AAString) 
  IBB = asc(Mid$(AAstring, IAA, 1)) 
  Select Case IBB 
    Case &h00 to &h1F, &h7F, &HFF 
      'BBstring = BBstring + "-"+Hex$(IBB)+"-"+Chr$(IBB) 
      BBstring = BBstring + Chr$(IBB) 
    Case &h20 To &h7E 
      BBstring = BBstring + ChacterGLstring(IBB) 
    Case &h80 to &H9F 
      BBstring = BBstring + Chr$(IBB) 
      IAA = IAA + 1 
      BBstring = BBstring + Chr$(IBB) 
    Case &hA0 To &hDF 
      BBstring = BBstring + ChacterGHstring(IBB) 
    Case &HE0 To &hFE 
      BBstring = BBstring + Chr$(IBB) 
      IAA = IAA + 1 
      BBstring = BBstring + Chr$(IBB) 
    Case else 
      BBstring = BBstring + Chr$(IBB) 
  End select 
Next IAA 
StrConvAsc2SjisString = BBString 
End Function

次ページ