[ set_X @ 27.08.2004. 09:23 ] @
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]
[ mladenovicz @ 27.08.2004. 14:53 ] @
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


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.

[ set_X @ 27.08.2004. 16:19 ] @
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!
[ set_X @ 28.08.2004. 06:48 ] @
Jel zna neko kako da izvrsim replace nad nekim delom koda???
[ mladenovicz @ 28.08.2004. 15:12 ] @
Google Google Google Google Google
[ cyBerManIA @ 31.08.2004. 12:05 ] @
Ukoliko programu promenis deo sourca na neodgovarajuci nacin , program ti vise nece raditi.
[ Pr[o_O]F @ 01.09.2004. 21:10 ] @
Kod za ReplaCe:

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


javi da li radi ili ne!