mazy12
جمعه 23 بهمن 1388, 18:49 عصر
میخوام توی یک فایل تکست سرچ کنم که اگه استرینگ من توی فایل نبود بهش اضافه کنم
استرینگم وقتی انگلیسیه بدون مشکل کار میکنه اما فارسی میشه تابع همیشه نشون میده که استرینگ توی فایل نیست حتی اگه موجود باشه.
کدشو میذازم کسی میدونه با کارکترهای فارسی یا زبونای دیگه که لاتین نیستن چه میشه کرد برای جستجو در تکست؟
توی متغییر فایل استرینگم نگهداری میشه.
file = "mystring"
For Each File In FSfolder.Files
Open "C:\Temporary.txt" For Input As #1
While Not EOF(1)
Line Input #1, strTemp
txtFile = txtFile & strTemp & vbCrLf
Wend
Close #1
If InStr(txtFile, File) = 0 Then
Set FS1 = FS.OpenTextFile("C:\Temporary.txt", ForAppending, True, TristateTrue)
FS1.WriteLine (File)
' Set FS = Nothing
FS1.Close
Next file
استرینگم وقتی انگلیسیه بدون مشکل کار میکنه اما فارسی میشه تابع همیشه نشون میده که استرینگ توی فایل نیست حتی اگه موجود باشه.
کدشو میذازم کسی میدونه با کارکترهای فارسی یا زبونای دیگه که لاتین نیستن چه میشه کرد برای جستجو در تکست؟
توی متغییر فایل استرینگم نگهداری میشه.
file = "mystring"
For Each File In FSfolder.Files
Open "C:\Temporary.txt" For Input As #1
While Not EOF(1)
Line Input #1, strTemp
txtFile = txtFile & strTemp & vbCrLf
Wend
Close #1
If InStr(txtFile, File) = 0 Then
Set FS1 = FS.OpenTextFile("C:\Temporary.txt", ForAppending, True, TristateTrue)
FS1.WriteLine (File)
' Set FS = Nothing
FS1.Close
Next file