parser

Написать ответ на текущее сообщение

 

 
   команды управления поиском

Да не за что :), а то развели тут флейм мля ..

egr 23.02.2003 17:00

Комментарии по коду:
^if(def $form:item && def $form:price && def $form:box){
   $str[$form:item]
   $letter[^str.mid(0;1)]
  ^if($letter eq "а" || $letter eq "б" || $letter eq "в" || $letter eq "г" || $letter eq "д" || $letter eq "е" || $letter eq "ж" ||
  $letter eq "з" || $letter eq "и" || $letter eq "к" || $letter eq "л" || $letter eq "м" || $letter eq "н" || $letter eq "о" ||
  $letter eq "п" || $letter eq "р" || $letter eq "с" || $letter eq "т" || $letter eq "у" || $letter eq "ф" || $letter eq "х" ||
  $letter eq "ц" || $letter eq "ч" || $letter eq "ш" || $letter eq "э" || $letter eq "ю" || $letter eq "я" || $letter eq "щ" ||
  $letter eq "й" || $letter eq "ё" || $letter eq "ы" || $letter eq "ъ" || $letter eq "ь"){
   ^if($letter eq "а"){$letnum[1]}
   ^if($letter eq "б"){$letnum[2]}
   ^if($letter eq "в"){$letnum[3]}
   ^if($letter eq "г"){$letnum[4]}
   ^if($letter eq "д"){$letnum[5]}
   ^if($letter eq "е"){$letnum[6]}
   ^if($letter eq "ё"){$letnum[6]}
   ^if($letter eq "ж"){$letnum[7]}
   ^if($letter eq "з"){$letnum[8]}
   ^if($letter eq "и"){$letnum[9]}
   ^if($letter eq "й"){$letnum[9]}
   ^if($letter eq "к"){$letnum[10]}
   ^if($letter eq "л"){$letnum[11]}
   ^if($letter eq "м"){$letnum[12]}
   ^if($letter eq "н"){$letnum[13]}
   ^if($letter eq "о"){$letnum[14]}
   ^if($letter eq "п"){$letnum[15]}
   ^if($letter eq "р"){$letnum[16]}
   ^if($letter eq "с"){$letnum[17]}
   ^if($letter eq "т"){$letnum[18]}
   ^if($letter eq "у"){$letnum[19]}
   ^if($letter eq "ф"){$letnum[20]}
   ^if($letter eq "х"){$letnum[21]}
   ^if($letter eq "ц"){$letnum[22]}
   ^if($letter eq "ч"){$letnum[23]}
   ^if($letter eq "ш"){$letnum[24]}
   ^if($letter eq "щ"){$letnum[24]}
   ^if($letter eq "э"){$letnum[25]}
   ^if($letter eq "ю"){$letnum[26]}
   ^if($letter eq "я"){$letnum[27]}
   ^if($letter eq "ь"){$letnum[27]}
   ^if($letter eq "ъ"){$letnum[27]}
   ^if($letter eq "ы"){$letnum[27]}
Мама ... тут надо хэш
$letter[^str.mid(0;1)]
$letnum[
	$.а[1]
	$.б[2]
	$.в[3]
	$.г[4]
	$.д[5]
	...
]
...
   ^connect[$connect_string]{ 
      ^void:sql{insert into product 
         (letternum, letter, item, price, phone, box) 
      values  
         ('$letnum.[$letter]', '$letter', '$form:item', '$form:price', '$form:phone', '$form:box') 
      }
      …товар добавлен
      }
Да и вообще не стоит делать таких гигантских и запутанных методов, - тут немудрено пропустить скобку :)

UltraEdit.com

да и ещё посети egoroff.spb.ru там есть для него кое чего :)