【QBASIC互換!?】FreeBasic【GPL】 2 [無断転載禁止]©2ch.net (435ﾚｽ)
【QBASIC互換!?】FreeBasic【GPL】 2 [無断転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1482549747/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
13: デフォルトの名無しさん [] 2017/01/18(水) 20:25:56.21 ID:jwPQ/iiW ロボッチチェックに引っかかってちょっと分割する。 Public Function RoutineCommentLineCat(InLineString As String, OutLineString As String) As Long Const TakaSubRoutineNo as long = 21& '*-* コメント行をヌルに置き換える Dim As String BString 'Dim CH22String 大域 Dim As Long IAA, IBB, iModeLong RoutineCommentLineCat = 0 'CH22String = Chr$(&H22) OutLineString = Trim$(InLineString) If (Left$(OutLineString, 1&) = "'") Then OutLineString = "" ElseIf (InStr(OutLineString, CH22String) <= 0&) Then IAA = InStr(OutLineString, ": '") If (IAA > 0&) Then OutLineString = Left$(OutLineString, IAA - 1&) IAA = InStr(OutLineString, " '") If (IAA > 0&) Then OutLineString = Left$(OutLineString, IAA - 1&) OutLineString = Trim$(OutLineString) If (Right$(OutLineString, 1) = ":") Then OutLineString = Trim$(Left$(OutLineString, Len(OutLineString) - 1&)) http://mevius.5ch.net/test/read.cgi/tech/1482549747/13
15: デフォルトの名無しさん [] 2017/01/18(水) 20:36:07.21 ID:jwPQ/iiW >>13-14はコメント行を消す作業。コメント行か実行文か判断は面倒なので、 一括して消してしまう。 この2つのルーチンが主要なもので、他には、連続した空白の削除、TAB文字を空白に書き換える等の処理が必要。 こっちは比較的簡単なので、すぐ作れると思う。 Function 文で定義したルーチンの場合、 先頭が1文字目にある場合、戻り値を使わない場合の参照方法。 戻り値を使う場合には、先頭文字の直前(左側)が、演算子の場合が多い。 ということで、演算子であるかのチェックが必要。その他、()や空白、TAB文字等も演算子とみなして処理する。 なんとか、どのファイルの内容を参照しているか、を一覧表で表す見込みが立った。 http://mevius.5ch.net/test/read.cgi/tech/1482549747/15
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
5.322s*