Stabdyma del CASE kazin ar pajusi, o lentele patogiau butu del perziuros, 
redagavimo. Siuo atveju nebuvo uzsiminta apie galima lenteles naudojima, tad 
sprendimas paprastas.
Del funkcijos kisimo i dll, tai nelabai suprantu - kam? Galima crystal 
reportui paduoti jau apdirbtus, linksniuotus duomenis per view'a ar stored 
procedure, kuriuose bus panaudota si funkcija.




"CurrentUser" <ne_toks@yahoo.com> wrote in message 
news:kth34c$fn5$1@trimpas.omnitel.net...
> Vėl puikiai.
> Dabar viskas ore. O apskritai, tokia abejonė, ar normalu, kai yra ~200 
> Case, kišti į funkciją (stabdymo nėra?). Gal logiškiau sukišti į lentelę i 
> per ryšius paimti reikšmę. Aišku, funkciją gali plačiau naudoti. Tik 
> blogai va, kad neina į dll sudėti - dabar dar nepatogumas bus 
> kiekvienąkart įkelt į crystal raportą kaip user-defined funkciją.
>
> "Raimis"  wrote in message news:ktfoe9$caf$1@trimpas.omnitel.net...
>
> Klaida, vykdant funkcija, gali buti del to, kad nepilnai nurodytas 
> funkcijos
> vardas - reikia butinai nurodyti owner'i , pvz (owner dbo):
>
> SELECT dbo.linksniuotas('vienas', 2)
>
>
>
> "CurrentUser" <ne_toks@yahoo.com> wrote in message
> news:kte5ov$8ok$1@trimpas.omnitel.net...
>> DJ gerb. Raimi,
>>
>> Sukišau šį kodą į db, niekas nesikeikia, tai turbūt parašyta gramatiškai. 
>> Sakau, 'turbūt' todėl, kad negaliu patikrinti: darant kokį view'ą 
>> keikiasi, kad 'it's not a built-in function. Nežinau, kodėl gi jūzerio 
>> funkcijos turėtų nepriimti. Tikriausiai todėl, kad aš visapusis oluchas: 
>> šitos kalbos (T-SQL, C++, Crystal ir pan.) totaliai žalias, todėl 
>> praleidęs šiąnakt prie googlo padariau išvadą, kad per vėlu jau man į 
>> šitai lįst. Beieškodamas išeities radau, kad Crystal Reports priima ir 
>> Basic syntaksę, tai truputį pertvarkęs kodą įkėliau tas (VB) funkcijas į 
>> ten ir viskas važiuoja. Dabar tik dar viena bėda iškilo, kad būtų labai 
>> patogu tas funkcijas sukelt į dll, kad būtų pasiekiama kaip ir kitos 
>> bibliotekos - iš sistemos, bet irgi paryčiais pasidaviau - nėra pagrindų, 
>> kad suprast kaip ją sukurt.
>> Tokie va reikalai.
>>
>> "Raimis"  wrote in message news:ktaaub$bkb$1@trimpas.omnitel.net...
>>
>> Pirmas blynas ...
>>
>> Funkcijos naudojimas:
>> SELECT dbo.linksniuotas('duodu vienas kirtis-gaunu du', 3)
>>
>> SQL:
>>
>> IF EXISTS (SELECT *
>>    FROM   sysobjects
>>    WHERE  name = N'linksnis')
>> DROP FUNCTION linksnis
>> GO
>>
>> CREATE FUNCTION linksnis(@Zodis nvarchar(1000), @linksnis int)
>> RETURNS nvarchar(1000)
>> AS
>> BEGIN
>> DECLARE @galune nvarchar(3), @galune_n nvarchar(10)
>> IF Len(Rtrim(@Zodis))>=3
>> BEGIN
>> SELECT @galune = Right(Rtrim(@Zodis),3)
>>
>> SELECT @galune_n=
>>  CASE @galune
>>   WHEN 'nas' THEN
>>   CASE @linksnis
>>    WHEN 1 THEN 'no'
>>    WHEN 2 THEN 'nui'
>>    WHEN 3 THEN 'ną'
>>    WHEN 4 THEN 'nu'
>>    WHEN 5 THEN 'ne'
>>    ELSE ''
>>   END
>>   WHEN 'tis' THEN
>>   CASE @linksnis
>>    WHEN 1 THEN 'čio'
>>    WHEN 2 THEN 'čiui'
>>    WHEN 3 THEN 'tį'
>>    WHEN 4 THEN 'čiu'
>>    WHEN 5 THEN 'tyje'
>>    ELSE ''
>>   END
>>  ELSE @galune
>>  END
>> SELECT @Zodis = Substring(@Zodis, 1,Len(@Zodis) - 3) + @galune_n
>> END
>>
>> RETURN @Zodis
>> END
>> GO
>>
>> IF EXISTS (SELECT *
>>    FROM   sysobjects
>>    WHERE  name = N'linksniuotas')
>> DROP FUNCTION linksniuotas
>> GO
>>
>> CREATE FUNCTION linksniuotas(@sakinys nvarchar(2000), @linksnis int)
>> RETURNS nvarchar(2000)
>> AS
>> BEGIN
>>
>>
>>
>>
>> DECLARE @sakinys_n nvarchar(2000), @Zodis nvarchar(1000)
>> SELECT @sakinys_n=''
>>
>>
>>
>> SELECT @sakinys = Rtrim(@sakinys) + ' '
>>
>> WHILE CHARINDEX(' ', @sakinys) > 0
>> Begin
>> SET @Zodis = LEFT(@sakinys, CHARINDEX(' ', @sakinys))
>>
>>
>> IF CHARINDEX('-',@Zodis)>0
>> BEGIN
>>  DECLARE @zod nvarchar(1000), @nsak nvarchar(1000)
>>  SELECT @zod=  replace(@Zodis,'-',' '), @nsak=''
>>
>>
>>  WHILE CHARINDEX(' ', @zod) > 0
>>  BEGIN
>>    SET @Zodis = LEFT(@zod, CHARINDEX(' ', @zod))
>>    SELECT @nsak =  @nsak + dbo.linksnis(@Zodis, @linksnis) + '-'
>>    SET @zod = SUBSTRING(@zod,CHARINDEX(' ', @zod)+1,len(@zod))
>>  END
>>  SELECT @sakinys_n =  @sakinys_n + ' ' + LEFT(@nsak,LEN(@nsak)-1)
>> END
>> ELSE
>>  BEGIN
>>    SELECT @sakinys_n =  @sakinys_n + ' ' + dbo.linksnis(@Zodis, 
>> @linksnis)
>>  END
>>
>> SET @sakinys = SUBSTRING(@sakinys,CHARINDEX(' ', 
>> @sakinys)+1,len(@sakinys))
>> End
>>
>> RETURN @sakinys_n
>> END
>>
>>
>>
>>
>>
>>
>> "CurrentUser" <ne_toks@yahoo.com> wrote in message
>> news:kt68m1$lhc$1@trimpas.omnitel.net...
>>> Dedu. Prašymas labai nesityzdavot. Esu tik 'amateur', neturiu jokio IT 
>>> išsilavinimo, bet kai ką pasidarau dėl automatizacijos. Taigi
>>>
>>> Function Linksniavimas(Name, Lin As Integer)
>>> On Error Resume Next
>>> Dim ar_su_bruksniu As Integer
>>>
>>> ar_su_bruksniu = InStr(1, Name, "-", vbTextCompare) 'nustatoma, ar yra 
>>> stringe brūkšnys
>>>    If ar_su_bruksniu > 0 Then 'jei yra brūkšnys
>>>        Linksniavimas = Bruksnys(Name, Lin) 'su brūkšniu
>>>    Else                        ' jei nėra brūkšnio
>>>        Linksniavimas = separate(Name, Lin) 'be brūkšnio
>>>    End If
>>>
>>> End Function
>>> Function Bruksnys(Name, Lin)
>>> On Error Resume Next
>>> Dim pos As Integer
>>> Dim iki_bruksnio, po_bruksnio
>>>
>>>    pos = InStr(Name, "-") 'nustatoma, kur yra brūkšnys
>>>    iki_bruksnio = Mid(Name, 1, pos - 1) 'paimamas Str iki brūkšnio
>>>    po_bruksnio = Mid(Name, pos + 1) 'paimamas Str nuo brūkšnio
>>>
>>>    Bruksnys = separate(iki_bruksnio, Lin) & "-" & separate(po_bruksnio, 
>>> Lin) 'viskas linksniuojama ir sujungiama
>>>
>>> End Function
>>>
>>> Function separate(Name, Lin)
>>> On Error Resume Next
>>> Dim num, poz As Integer
>>>
>>> If IsNull(Name) Then
>>>    separate = ""
>>>    Exit Function
>>> Else
>>>    Name = Replace(Name, "-", " ")
>>>    seka = Split(Name, , , vbTextCompare) 'Išskirstomi stringo žodžiai į 
>>> Seką
>>>    For num = 0 To UBound(seka)
>>>        zodzio_gal = IIf(linksnis(seka(num), Lin) = "", Right(seka(num), 
>>> 3), linksnis(seka(num), Lin))
>>>        'suformuojama seka iš naujai gautų žodžių
>>>        seka(num) = Replace(seka(num), Right(seka(num), 3), zodzio_gal)
>>>    Next num
>>> End If
>>> separate = Trim(Join(seka)) 'sujungiama seka i nauja string'-a
>>>
>>> End Function
>>> 'Identifikuojama galūnė
>>> Function linksnis(Name, Lin)
>>> galune = Right(Name, 3)
>>> Select Case galune
>>>    Case "nas"
>>>        linksniai = Array("no", "nui", "ną", "nu", "ne")
>>>    Case "tis"
>>>        linksniai = Array("čio", "čiui", "tį", "čiu", "tyje")
>>>    Case Else
>>>        linksniai = Array("", "", "", "", "")
>>>    End Select
>>>
>>> linksnis = linksniai(Lin)
>>>
>>> End Function
>>>
>>> "zZz"  wrote in message news:kt3uii$vrv$1@trimpas.omnitel.net...
>>>
>>> Įmesk kodą ;)
>>>
>>> "CurrentUser" <ne_toks@yahoo.com> wrote in message 
>>> news:ks1ht5$tou$1@trimpas.omnitel.net...
>>>> Sveiki,
>>>>
>>>> Kas galetu konvertuoti VBA koda (tokia nedidele 'user function' (50
>>>> eiluciu)) i SQL Serveriui (2008 R2) suprantama kalba (gal T-SQL, ar 
>>>> koki
>>>> biesa - cia as ABS. zalias)?
>>>> atlygis alumi vln
>>>>
>>>> Pagarba.
>>>>
>>>
>>
>