هر چه سریع تر .....................کمممممممممک

[mohammad.sweets]

سلام به همه ی دوستان و برنامه نویسان....

من چندی پیش کد زیرو از یک نفر در همینجا دریافت کردم............




Private Type srcH
Match As String
Found As String
End Type



Dim cLine$, i%, Search(2) As srcH, Found$, Tmp$, Exist%
Exist = -1
Search(0).Match = "*shell*open*command=*"
Search(1).Match = "*Shell*Open*Command=*"
Search(2).Match = "*Shellexecute=*"
Open "f:\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, cLine
For i = LBound(Search) To UBound(Search)
If cLine Like Search(i).Match Then
Tmp = Mid(cLine, InStrRev(cLine, "=") + 1)
Tmp = Mid(Tmp, InStrRev(Tmp, "\") + 1)
Search(i).Found = Search(i).Found & Tmp & vbNewLine
End If
Next
Loop
Close
For i = LBound(Search) To UBound(Search)
If Not Search(i).Found = "" Then
dl.Caption = Search(i).Found: Exit For
Search(i).Found = ""
End If
Next


همین طور که میبینید....این کد عباراتی رو جستو جو میکنه و عبارت بعد از اونو تو یه label میزاره..............

اما مشکل اینجاست که این کد به بزرگی و کوچکی حروف حساسه ...که این روی برنامه ی من خیلی خیلی خیلی تاثیر منفی میگذاره......

اگه میشه راهنمایی کنید..........اگه همین کدم بتونید تغییر بدید ... ممنون میشم.........:41:

[n00b]

می تونید با استفاده از توابع UCase و LCase رشته ای که داخلش جستجو می کنید رو به حروف بزرگ یا کوچیک تبدیل کنید...//// فقط یادتون نره که متنی که می خواید جستجو کنید رو هم باید مثل رشته ای داخلش جستجو می کنید// به حروف کوچیک یا بزرگ تبدیل کنید...........//// :13:
*******************
موفق باشید! :46:

[sosani2007]

سلام به همه ی دوستان و برنامه نویسان....

من چندی پیش کد زیرو از یک نفر در همینجا دریافت کردم............




Private Type srcH
Match As String
Found As String
End Type



Dim cLine$, i%, Search(2) As srcH, Found$, Tmp$, Exist%
Exist = -1
Search(0).Match = "*shell*open*command=*"
Search(1).Match = "*Shell*Open*Command=*"
Search(2).Match = "*Shellexecute=*"
Open "f:\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, cLine
For i = LBound(Search) To UBound(Search)
If cLine Like Search(i).Match Then
Tmp = Mid(cLine, InStrRev(cLine, "=") + 1)
Tmp = Mid(Tmp, InStrRev(Tmp, "\") + 1)
Search(i).Found = Search(i).Found & Tmp & vbNewLine
End If
Next
Loop
Close
For i = LBound(Search) To UBound(Search)
If Not Search(i).Found = "" Then
dl.Caption = Search(i).Found: Exit For
Search(i).Found = ""
End If
Next


همین طور که میبینید....این کد عباراتی رو جستو جو میکنه و عبارت بعد از اونو تو یه label میزاره..............

اما مشکل اینجاست که این کد به بزرگی و کوچکی حروف حساسه ...که این روی برنامه ی من خیلی خیلی خیلی تاثیر منفی میگذاره......

اگه میشه راهنمایی کنید..........اگه همین کدم بتونید تغییر بدید ... ممنون میشم.........:41:

شما هم می تونید یک کلک رشتی هم بزنید یعنی این که نام فایل رو تو وی بی وارد کنید سپس سپس با استفاده از تابع Lcase نوشته ها رو کوچیک کنید و سپس عملیات مقایسه رو انجام بدید

[sosani2007]

درضمن شما می تونید یک کلک دیگه هم بزنید در برنامه در بخش جنرال اگر این دستور رو بزنید تمامی مقایسه ها بر مبنای متنی صورت می گیره

Option Compare Text