のうぢから

4E - Everyday Exciting Enjoying Engineer!
Google
 
<< July 2006 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 >>
 
ブクレジで発売日を忘れよう!
ブクレジ
いつでもどこでもamazonの
買いドキをお知らせ
アメドキ
PROFILE
ARCHIVES
無料ブログ作成サービス JUGEM
 
スポンサーサイト

一定期間更新がないため広告を表示しています

- | | - | -
JavaScriptの高速化
JavaScriptの処理が重たいと感じたら、要チェック

JavaScriptの高速化
g_Split関数(VBS)
UBound(Array)=要素数となるように、
また要素数=0ならUBound(Array)=0となるようにしているので、
汎用的に使用できる。

<%
Private Function g_Split(str,ary,point)
'********************************************************************
'処理機能名称:g_Split()
'機能概要  :文字列⇒配列
'引数    :str:文字列 ary:配列 point:区切り文字
'戻り値   :エラーメッセージ 通常終了なら"0"
'備考 :データは添字1から始まる。配列の長さ(UBound(ary))が0ならstr=""
' :aryは動的配列として宣言済みのこと
'更新履歴  :
'********************************************************************
  Dim xCOUNT
  Dim xTEXT

  If IsNull(str) Or Trim(str) <> "" Then
    xCOUNT = 0
    xTEXT = str
    Do Until xTEXT = ""
      xCOUNT = xCOUNT + 1
      ReDim Preserve ary(xCOUNT)
      '区切り文字が存在
      If InStr(xTEXT,point) > 0 Then
        ary(xCOUNT) = Left(xTEXT,InStr(xTEXT,point)-1)
        If Len(xTEXT) > InStr(xTEXT,point) Then
          xTEXT = Mid(xTEXT,InStr(xTEXT,point)+1)
        Else
          xTEXT = ""
        End If
      '区切り文字無し
      Else
       ary(xCOUNT) = xTEXT
       xTEXT = ""
      End If
    Loop
  Else
    ReDim ary(0)
  End If

  If Err <> 0 Then
    g_Split = Err.Description
  Else
    g_Split = "0"
  End If
End Function
%>
網走刑務所
北海道旅行に行った友人の話。

網走刑務所の受刑者が作る地元の工芸品は、
地元でも評判だったらしい。

元々凶悪犯ばかりが収監されていたため、
長い年月を刑務所内で過ごすうちに、
職人と呼ばれるほどの腕をもつ受刑者が育ち
質の高さを売り物にしていたそうな。

しかし、現在の網走刑務所は刑犯罪者を中心に
収監されるように変化し
それに伴い熟練した技術者の数も減っているそうです。

地元の人曰く
「最近の奴はあかんわ、腕磨く前にすぐ出て行ってしまいよるから」

…どこの伝統工芸も後継者不足は同じようです。