هر چه سریع تر .....................کمممممممممک
سلام به همه ی دوستان و برنامه نویسان....
من چندی پیش کد زیرو از یک نفر در همینجا دریافت کردم............
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:
