Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-03-28, 11:40x



Odpowiedz w temacie  [ Posty: 8 ] 
Wyszukanie ukośnika 
Autor Wiadomość

Rejestracja: 2008-03-10, 14:01
Posty: 590
Post Wyszukanie ukośnika
Witam.
Chcę wyszukać ukośnik "/" w stringu.
Jak to zrobić? Próbowałem "/" i "\/" (jako znak specjalny) i ...nic :(

_________________
zz


2011-04-15, 10:18
Wyświetl profil
Autor Wiadomość
 


Awatar użytkownika

Rejestracja: 2008-12-03, 21:11
Posty: 276
Pomógł: 2
Post 
może tak ?
Kod:
buf = "FSV 128\MAG/2011"

if find "\/" then message "znalazłem znak /\n:-)"

error ""

_________________
Pozdrawiam

Misiek DGTL Rzeszów


2011-04-15, 11:36
Wyświetl profil

Rejestracja: 2008-03-10, 14:01
Posty: 590
Post 
Nawet gdyby zadziałało, to za mało ;)
Potrzebuję numer pozycji, na której występuje w ciągu.

_________________
zz


2011-04-15, 15:32
Wyświetl profil
Awatar użytkownika

Rejestracja: 2008-12-03, 21:11
Posty: 276
Pomógł: 2
Post 
zz pisze:
Nawet gdyby zadziałało, to za mało ;)

A nie działa ?


zz pisze:
Potrzebuję numer pozycji, na której występuje w ciągu.


O tym nie pisałeś więc... tak na szybko, może mało optymalnym kodem ale działa...

Kod:
buf = "FSV 128\MAG/2011"
string txt

if Find Regular "*//" then
   txt = Delete Regular "*//"
   message using "znalazłem znak / na pozycji %d\n:-)", Len(txt) + 1
endif

error ""

_________________
Pozdrawiam

Misiek DGTL Rzeszów


2011-04-15, 15:35
Wyświetl profil

Rejestracja: 2008-03-10, 14:01
Posty: 590
Post 
Działa.
Ale co ja mam źle?

Kod:
buf = "abc/123"
int i, iDlDw=len(buf)
string sZnak
for i=1 to i>iDlDw
sZnak=mid(buf,i,1)
if sZnak="\/" then
message using "%i", i            
endif
next i

_________________
zz


2011-04-15, 15:49
Wyświetl profil
Ekspert
Ekspert
Awatar użytkownika

Rejestracja: 2008-04-18, 18:52
Posty: 5169
Pomógł: 59
Post 
A jesli uzyc takiego strasznego pojecia jak rekurencja?

cos w stylu (vba):

Kod:
function pozycja(tekst,szukany,od)
if (mid(tekst,od,1))=szukany then
     msgbox od
else
     pozycja(tekst,szukany,od+1)
end if
end function




PS to masz zle ->

Kod:
if sZnak="\/" then



lepiej tak:
Kod:
if sZnak=="/" then



i nie uzywaj zmiennej buf - to nazwa specjalna


2011-04-15, 15:57
Wyświetl profil
Awatar użytkownika

Rejestracja: 2008-12-03, 21:11
Posty: 276
Pomógł: 2
Post 
Jeszcze jedna wersja - bez buf'a :-)

Kod:
string txt = "FSV 128\MAG/2011"
int i

for i = 1 to i > Size(txt)
   if txt(i) == 47 then // 47 = kod ASCI znaku
      message using "znalazłem znak / na pozycji %d\n:-)", i + 1
      Exit
   endif
next i

error ""

_________________
Pozdrawiam

Misiek DGTL Rzeszów


2011-04-15, 16:21
Wyświetl profil

Rejestracja: 2008-03-10, 14:01
Posty: 590
Post 
Właśnie o taką funkcję (odpowiednik CHR-a z VB) mi chodziło - w helpie jej nie znalazłem.
Ponieważ nie mogę postawić dwóch punktów, 'zarabia' Misiek (jako pierwszy odpowiadający).

_________________
zz


2011-04-18, 07:58
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 8 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. Załączniki Wyszukanie kontrahenta po Rachunek1Norm

w Programowanie

misha

4

2722

2016-01-25, 11:10

misha Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Wyszukanie kontrahenta po NIP w erp

w Programowanie

browser123

3

2930

2017-11-15, 10:32

rafal Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Wyszukanie wystawionych dokumentów z rabatem

w Programy Handlowe

asia_r93

1

1951

2018-10-30, 19:29

rafal Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. [HMF2016.1] Wyszukanie towaru po kodzie kreskowym

w Programowanie

Malutki_27

5

3356

2016-07-08, 11:57

Malutki_27 Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 7 gości


Nie możesz tworzyć nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników

Szukaj:
Przejdź do:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant