TSfree 発言

Bruce. です。

書いてませんでしたが、今回、jindex, jlength, jsubstrは実装していません。
日本語に限らないのに`j'はないだろうというのと、いい名前が思い浮かばなかった
からです。

まあ、必要なら↓こんなところで。
#最初、substrの第二引数を0にしてたのは内緒(笑) それでも動くけど

-----^ jfuncs.awk
function jlength(str,   ary)
{
    retrun split(str, ary, "")
}

function jindex(str1, str2,   n, m)
{
    n = index(str1, str2)

    if (n == 0)
        m = 0
    else
        m = jlength(substr(str1, 1, n))

    return m
}

function jsubstr(str, start, len,    n, m, o)
{
    m = ""

    if (len == "")
        len = jlength(str)

    if (len <= 0)
        return ""

    split(str, n, "")

    for (o=start; o<start+len; o++)
        m = m n[o]

    return m
}
------$


-- 
木村浩一
  I thought what I'd do was, I'd pretend I was one of those deaf-mutes.
  mail kbk@...
  web  www.kt.rim.or.jp/~kbk/