mid i instr problem

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

imam jedan text npr. <$ print "Welcome"; $> u HTMLu zajedno sa svim tagovima HTMLa naravno i sada hocu da u neku promenljivu samo ubacim <$ print "Welcome"; $>... probao sam pomocu mid i instr sto je najlogicnije, ali nece da radi...

ovako sam radio:

Dim ceo_html As String '// ovde se ucitava cela HTML stranica
Dim code As String '// ovde je samo onaj deo koji mi treba

code = Mid(ceo_html,InStr(ceo_html,"<$"),InStr(ceo_html,"$>"))

ovo bi po logici i pravilu trebalo da radi, ali nece i ja ne znam zasto... probavao sam ovaj drug InStr da bude InStrRev, ali jok... krene mi od '<$' i zavrsi na kraju strane, kao da nista nisam stavio u ovaj drugi deo...

mozda radim pogresno mada ne bih rekao... recite mi sta ne valja ako ne valja...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ako sam ja dobro razumio sta trazis, onda probaj ovako:

'-----------------------------------------
Dim ceo_html As String
Dim code As String
Dim Pocetak As String
Dim Kraj As String
Dim A As Long
Dim B As Long
Dim C As Integer

Pocetak = "<$"
Kraj = "$>"

A = InStr(ceo_html, Pocetak)
B = InStr(ceo_html, Kraj)
C= Len(Kraj)

code = Mid(ceo_html, A, B - A + C)
'------------------------------------------

U komandi Mid, iza drugog zareza se odredjuje koliki broj stringova ce imati tvoja promjenjiva "code".

Ako to nije ono sto si trazio onda pojasni malo bolje.



_______________________________
Sove

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

resio sam problem vec taj dan na malo drugi nacin... probao sam to da uradim u .NETu i radilo je bez greske kada sam to isto kopirao u VS 6.0 nije hteo da radi... nije prikazivao nikakvu gresku samo nije hteo da radi...
postovacu resenje, mada je komplikovanije od ovog tvog samo ne znam da li ce to tvoje raditi posto sam pokusavao na razne nacine, ali cu probati...
hvala...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kod koji sam ti dao mora da odradi ono sto si trazio.
Tvoja greska u:
code = Mid(ceo_html,InStr(ceo_html,"<$"),InStr(ceo_html,"$>")) je:
ako je npr. :---- InStr(ceo_html,"<$")=1000, onda je u tvom slucaju
InStr(ceo_html,"$>")=1022. Znaci ti si postavio da "code" krene od 1000-itog stringa i da izbroji sledecih 1022 stringa, sto implicira (ovo je iz filma "Mrtav ladan") da ce tvoja promjenjiva "code" poceti od "<$" i zavvrsiti na 2022-om stringu, sto dlje implicira da je broj stringova "code"= 1022 string-a, sto dalje implicira da si pogrijesio iza drugog zareza gdje se odredjuje duzina stringa

Sto se tice vbnet-a, nisam ga ni isprobao, al ne vjerujem da moze biti neka velika razlika u odnosu na vb 6.0.
Moj licni savjet za sve programere u VB-u je: ako mislite da ste upola skontali princip rada i programiranja u VB-u prijedjite na C++. Nije neka velika razlika osim malo drugacije i preciznije strukture koda, a dobijete puno vise mogucnosti. Za jednostavnije aplikacije VB je laksi i brzi, al ako treba ceprkati po windows-u ili raditi komplikovanije programe ili igre, u VB-u mozete samo da poludite dok ne skontate «Api», a ako i uspijete da skontate zapetljane funkcije Api-ja, njihova upotreba je mnogo komplikovana i zamorna.
VB je jednostavniji po strukturi koda i programiranju, samim tim jednostavniji je za ucenje, ali moj svjet je:
---Ko se iole razumije u programiranje, neka pocne sa ucenjem C++-a----

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@ Sove

probao sam tvoj kod i radi... evo moj kod koji sada radi...

args = Mid(parse_code, InStr(parse_code, "'"), InStrRev(parse_code, "'")) temp = Mid(args, InStr(args, "'") + 1, InStrRev(args, "'") - 2)                 args = temp

ovaj kod kod mene radi, mada i ovaj i onaj pre su mi bili logicni... ma cudno je programiranje