Na formi imam jedno dugme , text1 , dir1 i file1.
Direktorijume koje otvorim na dir1 , iz njih se fajlovi prikazu na file1 i to je uredu.
Ali sad kako da napravim :
-Izaberem program (.exe) iz file1. i kliknem na dugme , kako da se u text1 prikaze source programa koji je izabran u listi??
-I dalje kako da napravim :
-Ako u tom source-u nadje neke reci npr. "dsa" ili "dfasdf" ili "faxafc" , da ih izbrise??
Znam daje ovo malo teze ...ali bi molio nekog dami kaze!
Hvala!
[Ovu poruku je menjao set_X dana 28.08.2004. u 23:04 GMT]
Source Code nekog programa i pretraga po kodu!
Zaključano
Zakačeno
Code:
Private Sub Command1_Click()
Dim FileName As String
Dim FN As Long
Dim arrData() As Byte
FileName = Dir1.List(Dir1.ListIndex) & "\" & File1.FileName
FN = FreeFile
Open FileName For Binary Access Read As #FN
ReDim arrData(LOF(FN) - 1)
Get #FN, , arrData()
Close FN
End Sub
Private Sub Command1_Click()
Dim FileName As String
Dim FN As Long
Dim arrData() As Byte
FileName = Dir1.List(Dir1.ListIndex) & "\" & File1.FileName
FN = FreeFile
Open FileName For Binary Access Read As #FN
ReDim arrData(LOF(FN) - 1)
Get #FN, , arrData()
Close FN
End Sub
EXE je binarni fajl i ne mozes na ovaj nacin dobiti source kode. Sadzaj exe fajla ti se nalazi u arrData koji je byte array.
Za zamenu substringova koristi Replace funkciju.
Potpis
Hvala ti puno!! Ovo radi!!
Ali molim te , da bi zavrsion program samo mi je potrebno da delove koda obrisem...
Ako zelis molim te da mi napises neki primer sa funkcijom replace!
Hvala ponovo!
Ali molim te , da bi zavrsion program samo mi je potrebno da delove koda obrisem...
Ako zelis molim te da mi napises neki primer sa funkcijom replace!
Hvala ponovo!
Jel zna neko kako da izvrsim replace nad nekim delom koda???
Ukoliko programu promenis deo sourca na neodgovarajuci nacin , program ti vise nece raditi.
Potpis
Kod za ReplaCe:
javi da li radi ili ne!
Code:
'prvo trazi tekst odnosno dio teksta!
If InStr(OdabraniFajl, TrazeniPojam) <> 0 Then
OdabraniFajl.SelStart = InStr(OdabraniFajl, TrazeniPojam) - 1
OdabraniFajl.SelLength = Len(TrazeniPojam)
End If
'zamijeni ga s odredjenim tekstom!
OdabraniFajl.SelText = PojamKojiZamjenjuje
'prvo trazi tekst odnosno dio teksta!
If InStr(OdabraniFajl, TrazeniPojam) <> 0 Then
OdabraniFajl.SelStart = InStr(OdabraniFajl, TrazeniPojam) - 1
OdabraniFajl.SelLength = Len(TrazeniPojam)
End If
'zamijeni ga s odredjenim tekstom!
OdabraniFajl.SelText = PojamKojiZamjenjuje
javi da li radi ili ne!
Potpis
[ :. n!t .: ]