文字検索でドラッグした状態にするには？ (ID:120263)

名前

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

本文 影さん。早速のレスありがとうございます。 >>Found = InStr(sText, sFindText) >・・・って、変数は宣言されてませんよね？ 書き忘れです。すみませんm(__)m ↓を書いてます。 Public Function TextFile_ReadAll(ByVal FileName As String) As String Dim h As Long Dim sBuffer As String On Error GoTo ErrHandle h = FreeFile Open FileName For Binary Access Read Lock Write As #h sBuffer = Space(LOF(h)) Get #h, , sBuffer Close #h TextFile_ReadAll = sBuffer Exit Function ErrHandle: Close #h TextFile_ReadAll = "" Exit Function End Function この場合でも方法は変わりませんよね？ それと、どのようなコードを書けばいいのかよく分からないので、 よろしければ、簡単なコードを書いていただきたいです。 おねがいしますm(__)m