سلام
می خواستم اگه کسی میدونه چطور می شه کدی نوشت که توی یک فایل متنی با ÷سوند .txt یک عبارت را جستجو کنیم و یا توی یک فایل PDF .
متشکرم. منتظر جواب هاتون هستم. مرسی
Printable View
سلام
می خواستم اگه کسی میدونه چطور می شه کدی نوشت که توی یک فایل متنی با ÷سوند .txt یک عبارت را جستجو کنیم و یا توی یک فایل PDF .
متشکرم. منتظر جواب هاتون هستم. مرسی
میتونی دکمه های Ctrl + F رو به ویندوز بفرستی
فک کنم کدش sendkey بود اگه اشتباه نکنم.
سلام
دوست عزيز حيف كه قابليت آپلود ندارم و گرنه واست ميذاشتم حالا يه جايي واست آپلود مي كنمش
اگرم مي توني بفهمي كدشو اينجا ميذارم
يه دكمه بذار و 3تا تكست فايل و يه چك فايل از روي نام ها مي توني بفهمي
موفق باشي
کد:Private Sub CmdGo_Click()
Text1.Text = FindAndReplace(Trim(TxtFind.Text), Trim(TxtReplace.Text), Text1.Text, ChkCaseSensitive.Value * -1)
End Sub
Private Function FindAndReplace(StrFind As String, strReplace As String, ByVal strMyString As String, CaseSensitive As Boolean) As String
strMyString = strMyString
If CaseSensitive Then
N% = InStr(strMyString, StrFind)
Else
N% = InStr(UCase(strMyString), UCase(StrFind))
End If
Do While N% <> 0
strMyString = Left(strMyString, N% - 1) + strReplace + Right$(strMyString, Len(strMyString) - N% - Len(StrFind) + 1)
Start = Start + N% + Len(strReplace)
If Start <= Len(strMyString) Then
If CaseSensitive Then
N% = InStr(Start, strMyString, StrFind)
Else
N% = InStr(Start, UCase(strMyString), UCase(StrFind))
End If
Else
N% = 0
End If
Loop
FindAndReplace = strMyString
End Function
خیلی ممنونم