【QBASIC互換!?】FreeBasic【GPL】 2 [無断転載禁止]©2ch.net (430ﾚｽ)
【QBASIC互換!?】FreeBasic【GPL】 2 [無断転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1482549747/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
11: デフォルトの名無しさん [] 2017/01/18(水) 20:22:28.09 ID:jwPQ/iiW 参照関係を調べる時に使うルーチン Public Function RoutineImmediateStringCat(InLineString As String, OutLineString As String) As Long '*-* 即値 の文字列をヌルに書き換える Dim As String BString 'Dim As String CH22String Dim As Long IAA, IBB, iModeLong RoutineImmediateStringCat = 0 iModeLong = 0&: 'CH22String = Chr$(&H22) OutLineString = "" For IAA = 1& To Len(InLineString) BString = Mid$(InLineString, IAA, 1): IBB = Asc(BString) Select Case iModeLong Case 0& If (IBB = &H22) Then iModeLong = 10& OutLineString = OutLineString + BString Else OutLineString = OutLineString + BString End If Case 10& If (IBB = &H22) Then iModeLong = 0& OutLineString = OutLineString + BString End If End Select Next IAA End Function http://mevius.5ch.net/test/read.cgi/tech/1482549747/11
12: デフォルトの名無しさん [] 2017/01/18(水) 20:24:45.43 ID:jwPQ/iiW >>11 のつづき。 自己書き換えルーチンの場合に、目印とする行が即値で定義されている場合が多い。 即値を目印と勘違いするルーチンとなる場合があるので、即値を消す作業を行う。 http://mevius.5ch.net/test/read.cgi/tech/1482549747/12
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.160s*