2007年04月13日の日記

2007-04-13

■http://anond.hatelabo.jp/20070413213750

リンク先のコラムの筆者、頭大丈夫か？

……と思って「花岡信昭」で検索したら、やっぱりこんなことがあった人なのね（笑）　http://blog.livedoor.jp/kensuu/archives/50217023.html

これを読んだ後だと　http://www.nikkeibp.co.jp/sj/column/y/54/03.html　の

　筆者もかつて、ちょっとした問題を起こした企業経営者から「世間は忘れたのに、ネットで検索されると出てきてしまう。償いは十分にしたのだから、なんとかならないか」と相談を持ちかけられて困ったケースもあった。

の部分で腹が捩れるほど笑える。いい歳こいたオッサンが「これは友達の話なんだけど……」メソッドかよ（笑）

Permalink | 記事への反応(0) | 22:03

■豚の去勢をしたこと

豚の去勢をしたことある人なら分かる。

ファミコンの中を嗅いだ時の臭いに、去勢した豚の金玉の臭いが似ている。

Permalink | 記事への反応(1) | 22:02

■ASPのファイル受信

'/** Requestオブジェクトから受信したデータを取り出します。
' * @return byte配列を格納した連想配列を返します。
' */
Function getRequestItem()

  If Request.TotalBytes <= 0 Then
    getRequestItem = Null
    Exit Function
  End If

  Dim data
  Dim separator
  Dim dataArray
  Dim buffer
  Dim filePath
  Dim fileName
  Dim ix
  Dim stringIndex
  Dim myCrLf
  Dim items
  Dim itemName

  myCrLf = convertAsc(vbCrLf)
  Set items = Server.CreateObject("Scripting.Dictionary")

  data = Request.BinaryRead(Request.TotalBytes)
  data = LeftB(data, UBound(data) - 3) & myCrLf

  separator = MidB(data, 1, InStrB(1, data, myCrLf) + 1)

  dataArray = SplitB(data, separator)

  For ix = 2 To UBound(dataArray) Step 1
   '1行読み込み
    buffer = MidB(dataArray(ix), 1, InStrB(1, dataArray(ix), myCrLf) - 1)

   'アイテム名の取得
    stringIndex = InStrB(1, buffer, convertAsc("name="))
    If stringIndex > 0 Then
      itemName = convertUnicode(MidB(buffer, stringIndex + 6, InStrB(stringIndex, buffer, ChrB(34)) - stringIndex))
     Else
      itemName = ""
    End If

   'ファイル名の取得
    stringIndex = InStrB(1, buffer, convertAsc("filename="))
    If stringIndex > 0 Then
      filePath = MidB(buffer, stringIndex + 10, InStrB(stringIndex, buffer, ChrB(34)) - stringIndex)
      fileName = RightB(filePath, LenB(filePath) - LastInStrB(0, filePath, convertAsc("\")))
     Else
      fileName = ""
    End If

   'データ部の取得、改行コードの切り捨て
    buffer = RightB(dataArray(ix), LenB(dataArray(ix)) - InStrB(1, dataArray(ix), myCrLf & myCrLf) - 3)
    buffer = LeftB(buffer, LenB(buffer) - 2)

    items.Item(itemName) = parseBytes(buffer)
  Next

  Set getRequestItem = items
  Set items = Nothing

End Function

'/** 文字列の最後尾から指定文字を検索します。
' * @param Start 検索する開始文字位置を指定します。
' * @param String1 検索対象の文字列を指定します。
' * @param String2 検索する文字列を指定します。
' */
Function LastInStrB(ByRef Start, ByRef String1, ByRef String2)

  Dim ix
  Dim lastIndex
  Dim searchLength

  searchLength = LenB(String2)
  lastIndex = LenB(String1) - searchLength + 1
  If Start > 0 And Start < lastIndex Then
    lastIndex = Start
  End If
  For ix = lastIndex To 1 Step -1
    If MidB(String1, ix, searchLength) = String2 Then
      LastInStrB = ix
      Exit Function
    End If
  Next

  LastInStrB = 0

End Function

'/** アスキー文字列に変換します。
' * @param String 対象の文字列を指定します。
' */
Function convertAsc(Byref String)

  Dim ix
  Dim ascii

  ascii = ""
  For ix = 1 To Len(String) Step 1
    ascii = ascii & ChrB(AscB(Mid(String, ix, 1)))
  Next

  convertAsc = ascii

End Function

'/** Unicode文字列に変換します。
' * @param AscString 対象のアスキー文字列を指定します。
' */
Function convertUnicode(Byref AscString)

  Dim ix
  Dim unicode

  unicode = ""
  For ix = 1 To LenB(AscString) Step 1
    unicode = unicode & Chr(AscB(MidB(AscString, ix, 1)))
  Next

  convertUnicode = unicode

End Function

'/** バイナリ対応版Split関数です。
' * @param String 対象の文字列を指定します。
' * @param Delimiter 区切り文字を指定します。
' */
Function SplitB(Byref String, Byref Delimiter)

  Dim ix
  Dim lastIndex
  Dim searchLength
  Dim start
  Dim datas()
  Dim dataIndex

  dataIndex = 1
  start = 1
  delimiterLength = LenB(Delimiter)
  lastIndex = LenB(String) - delimiterLength + 1

 '最初から1文字ずつ繰り返します。
  For ix = 1 To lastIndex Step 1
   'データを比較します。
    If MidB(String, ix, delimiterLength) = Delimiter Then
     'データを取り出せたら配列に格納します。
      ReDim Preserve datas(dataIndex)
      datas(dataIndex) = MidB(String, start, ix - start)
      dataIndex = dataIndex + 1
      start = ix + delimiterLength
    End If
  Next

  SplitB = datas

End Function

'/** Byte配列を返す関数です。
' * @param data 対象のデータを指定します。
' */
Function parseBytes(Byref data)

  Const adLongVarBinary = 205
  Dim recordset

  If LenB(data) <= 0 Then
    parseBytes = CByte(0)
    Exit Function
  End If

  Set recordset = Server.CreateObject("ADODB.Recordset")
  recordset.Fields.Append "UpLoadBinary", adLongVarBinary, LenB(data)
  recordset.Open
  recordset.AddNew
  recordset.Fields("UpLoadBinary").AppendChunk data
  recordset.Update

  parseBytes = recordset.Fields("UpLoadBinary").Value
  recordset.Close
  Set recordset = Nothing

End Function

Permalink | 記事への反応(1) | 22:00

■

俺は考えた。うちの今年度の新入社員には脂質がある。

Permalink | 記事への反応(0) | 21:50

■ズボンの上から

厨の皆様。ズボンを履いたままその上から息子を擦っていると、そのうちズボンの前がだんだんビロビロに伸びてきて、股間の生地がお尻みたいになるから、気をつけて下さい。母より。

Permalink | 記事への反応(0) | 21:50

■http://anond.hatelabo.jp/20070413214350

ワキガは気をつけてどうにかなる問題じゃないでしょ

体のにおいで例えるなら自分の意志で風呂入ってない奴の体臭とかにしてよ。

バキュームカーの人はそれは仕事でしょ

タバコ臭い人ってのはJTの社員とかを想定してるの？

Permalink | 記事への反応(0) | 21:48

■いやいやいやいや

あなたはあなたの嫌いな臭いを強制的に嗅がされても文句言わないの？
http://anond.hatelabo.jp/20070413214005

そりゃ言わないよ。言ったら小学生だよ。ワキガの人に「ワキガ臭ぇよ近寄んな」って言わないでしょ。バキュームカー乗ってる人を「臭ぇ」って罵らないでしょ。らい病患者に「らい病うつるからこっち来んな」って言わないでしょ（らい病は感染力とても弱いですよ！念のため）。

もしかして嫌煙家のフリして喫煙者の権利を主張する自作自演？

Permalink | 記事への反応(3) | 21:43

■http://anond.hatelabo.jp/20070413213729

えー？あなたはあなたの嫌いな臭いを強制的に嗅がされても文句言わないの？

挙げた例は例だからあくまで自分の嫌いな匂いで考えてよ？

Permalink | 記事への反応(1) | 21:40

■

あのコナミの８０年代のアーケードゲームを代表するオムニバス系の
コレクションがＮＤＳで無茶をしてまで完璧に近い移植を無駄無く再現した
Ｍ２の神移植の脅威には素晴らしいと言える良移植を見事に
成し遂げた事についてはもう涙の止まらない歓迎っぷりに敬意を表します。
個人的に良かった部分として、詳細個別設定におけるディップスイッチの
切り替えのタッチ操作が本物をいじくる感覚も出来ますし、
簡略的な簡単設定の判り易さもツボの付いた設定もきちんと出来ていますし、
キーコンフィグの配慮によるボタン設定と連射設定も解ってる仕様として
文句無しに切り替え設定が出来るのも○ですからね。
あと小ネタ的な裏技として本体設定を英語などにすると、
海外版仕様を丸ごと遊べてなおかつ「グラディウス」の海外版である
「ネメシス」ではＯＰが変化したり、やり直しによる復活パターンが
日本版よりも甘めなサービスなどの細かさまで完璧に近い印象でした。
ちなみに「グラディウス」シリーズ好例のコナミコマンドの搭載まで
ちゃんとあったのはもはや高感度の持てる部分まで感動出来ました。