Advertisement
Guest User

Untitled

a guest
Feb 8th, 2019
187
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
XBasic 0.51 KB | None | 0 0
  1. user function u_teste(p1, p2, p3, p4, p5, p6, p7 p8, p9)
  2.     local ni := 0
  3.     local cf := ""
  4.     local cp := ""
  5.     local cm := ""
  6.  
  7.     for ni := 1 to len(p1)
  8.         if upper(p1[1]) == 'cfuncao'
  9.             cf := p1[2]
  10.         elseif upper(p1[1]) == 'cparam'
  11.             cp += p1[2] + ","
  12.         end
  13.     next
  14.  
  15.     cm := cf + "(" + cparam +  ")"
  16.     &(cm)
  17. return
  18.  
  19. //http://ip:port/u_test.apl?cfuncao=conout&cparam=daniel&cparam=lira
  20. //{{"cfunca", "count"}, {"cparam", "daniel"}, {"cparam", "lira"}}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement