mid$について (ID:122098)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 私も突っ込みをすこし。。。。。 >Do > If EOF(FileNum) Then 'ファイルの終わり？ > Exit Do 'Do-Loopを抜け出す > End If > Line Input #FileNum, sdata 'データを1行(改行まで)読み込む これは普通 Do While Not EOF(FileNum) Line Input #FileNum, sdata ........ Loop こうじゃない。 コメントが適切でない。 >Exit Sub 'プロシージャを抜け出す こんなコメントは要らない。 >s = InStr(r, "ENTITIES") >RichTextBox1.Text = Mid$(r, s) ここになぜコメントが無いの？ >ENTITIES ってもしかして、 ENTITLES のこと。。。orz