Bird-Soft Weblog

Bird-Soft Weblog tag:www.bird-soft.net,2008:/mt//1 2008-09-13T04:31:09Z プログラミング(Perl,C#,HSP,PSoC)、おすすめゲーム、など、趣味についてのんびり更新。 Movable Type 3.2-ja-2 シルクジャスミン（ゲッキツ）苗購入 tag:www.bird-soft.net,2008:/mt//1.223 2008-09-13T04:22:15Z 2008-09-13T04:31:09Z

シルクジャスミンの苗が売られていたので購入しました。シルクジャスミンという名前...

BIRD http://www.bird-soft.net/ 2008/09/09　購入（ポット苗198円。鉢は別売り）　

2008/09/12　朝に閉じていたつぼみが夜に開きました。花は思ったより香りが強かったです。花は一つ咲いただけなのに部屋中に香りが広がって驚きました。 ]]> オリヅルランの子株を植えつけ tag:www.bird-soft.net,2008:/mt//1.224 2008-09-12T14:59:00Z 2008-09-13T04:42:50Z

オリヅルランの子株が大きくなり、いつのまにか根も伸びてきたので、ランナーから切...

BIRD http://www.bird-soft.net/ ↑2008/09/07　カップにセラミスで植え付けしました。　

↑2008/09/08　青いアクリルの飾りとガラスのキャラクターでアレンジしてみました。 ]]> 付属以外のACアダプタでNintendo DSを充電（電源ピンアサインメモ） tag:www.bird-soft.net,2008:/mt//1.222 2008-08-31T08:55:44Z 2008-08-31T14:32:31Z

Nintendo DS付属のACアダプタを出先に忘れてしまったので、 Ninte...

BIRD http://www.bird-soft.net/ 今回、DC5V出力(2Aまで)のACアダプタを持っており、実際の出力が5.1V程度だったのでそれをつなぎました。 Nintendo DSをUSBから充電する商品（くるくる充電USBケーブルSミニ）も発売されているので、おそらくUSBからでも充電できるかと思います。（パソコンのUSBポートの出力は5V程度のため） ※もしこの記事を見て同じようなことにをする場合、　今回はたまたまうまくいっただけの可能性もあるため、自己責任で行ってください。　うまくいかなかった場合Nintendo DSが壊れる可能性もあります。追記：DS付属のACアダプタにちゃんと極性が記載してありました。　　　（まぁ、そのACアダプタがないから困っていたのですが（苦笑））]]> 画像からGetPixelでピクセル情報を取得し、セルの色を変更2（Excel VBA） tag:www.bird-soft.net,2008:/mt//1.221 2008-07-26T04:21:57Z 2008-07-26T04:23:40Z

前回の記事のVBAのプログラムを変更してパレットを変更するようにしてみました。 ...

BIRD http://www.bird-soft.net/ 前回の記事のVBAのプログラムを変更してパレットを変更するようにしてみました。
これで50色程度までなら元の画像と同じようにExcel上に表示できます。
（あまり意味はないVBAスクリプトですが＾＾；）

また、前回わかりやすいように冗長化していた部分を排除し、
さらに描画処理を一時的に停止することにより高速化しました。

※画像はあらかじめ50色以下に減色しておいてください。
※パレットを変更するので、他のExcelで開いているファイルは
閉じておいたほうがよいです。
※エラー処理は省略しているので、画像より大きい範囲に対して
　GetPixelしたりしないでください。。

VBAサンプルは続きから
]]> あらかじめCommandButton1、Image1をUserFormに作成しておきます。
　今回もコードはUserForm1だけに書くだけでよいです。
　C:\test.bmp"にテスト用の画像を配置しておきます。
　（サンプルでは160*160まで。重くなるが、コード変更でさらに大きい画像でも対応可）

Private Const DT_LEFT As Long = &H0
Private Const DT_BOTTOM As Long = &H8
Private Const DT_SINGLELINE As Long = &H20
Private Const TRANSPARENT As Long = 1
Private Const GUID_IDISPATCH_INTERFACE As String = "{00020400-0000-0000-C000-000000000046}"
Private Const CF_BITMAP As Long = 2
Private Const CF_PALETTE As Long = 9
Private Const PICTYPE_BITMAP As Long = 1
Private Const IMAGE_BITMAP As Long = 0
Private Const LR_COPYRETURNORG As Long = &H4
Private Const LR_LOADFROMFILE As Long = &H10
Private Const LOGPIXELSX As Long = 88

Private Type BITMAP
    bmType As Long
    bmWidth As Long
    bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    bmBits As Long
End Type

Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long

Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long

Private Declare Function GetObject Lib "gdi32" _
                         Alias "GetObjectA" _
                        (ByVal hObject As Long, _
                         ByVal nCount As Long, _
                         ByRef lpObject As Any) As Long

Private Declare Function SelectObject Lib "gdi32" _
                        (ByVal hDC As Long, _
                         ByVal hObject As Long) As Long

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long

'★
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long


Private Sub CommandButton1_Click()
    Const FILE_ORIGINAL As String = "C:\test.bmp"

    Dim hDC As Long
    Dim hBmp As Long
    Dim hOrgBmp As Long
    Dim hOrgFont As Long
    Dim hPalette As Long
    Dim hImg As Long
    Dim tBitmap As BITMAP
    Dim Pic As stdole.IPictureDisp
    Dim Ratio As Single
  
    '----------
    Dim i, j, cnt
    Dim strBGR, strBGR_Pixel
    
    Dim FlagHit  '検索がヒットしたか
    Dim PPos  'パレットの位置
    Dim ii
    Dim ret
    
    RRt = 255  '検索対象
    GGt = 255
    BBt = 100
    PPos = 1
    FlagHit = 0
    
    '----------
    
    'On Error Resume Next
    With Me.Image1
  
        'Image1に元画像を表示
        .Picture = stdole.LoadPicture(FILE_ORIGINAL)
        .AutoSize = False
        .AutoSize = True
    End With
    
        '元画像ＢＭＰファイルからデバイスコンテキストを直接作成
        hBmp = LoadImage(0, FILE_ORIGINAL, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)
        hDC = CreateCompatibleDC(0)
        hOrgBmp = SelectObject(hDC, hBmp)
        GetObject hBmp, Len(tBitmap), tBitmap
    
    
    '----------
    '★下位から 8 ビット単位で B、G、R、未使用の順に並んでいます
    'MsgBox (Hex(GetPixel(hDC, 1, 1)))

    'セルの幅を変更
    Columns("A:IV").Select
    Selection.ColumnWidth = 0.62

    Rows("1:510").Select
    Selection.RowHeight = 6

    '★描画更新停止
    ThisWorkbook.Application.ScreenUpdating = False


    For j = 1 To 160 Step 1    '縦方向
      For i = 1 To 160 Step 1  '横方向
          strBGR_Pixel = GetPixel(hDC, i - 1, j - 1) 'ピクセル取得

'-----------------------------------
          '最初からPPosまでのパレットを検索
          '見つかったらそれを適用。
          'なかったらPPos+1のパレットを変更してしまう
          FlagHit = 0
          For ii = 1 To PPos Step 1

             strBGR = ThisWorkbook.Colors(ii)  'パレットの色を取得
            
             If strBGR = strBGR_Pixel Then   '既存パレットに同色があったとき
                  FlagHit = 1
                  Cells(j, i).Interior.ColorIndex = ii  'ヒットしたパレットを適用
             End If
             
          Next ii
      
         '色がパレットにないとき、パレット変更
         If FlagHit = 0 Then
           If PPos = 56 Then
              '★描画更新有効
              ThisWorkbook.Application.ScreenUpdating = True
              MsgBox "パレットが足りません! PPos:" & PPos
              
                For ii = 1 To 56 Step 1
                  strBGR = ThisWorkbook.Colors(ii)
                  Cells(ii, 1).Value = strBGR 'DBG
                Next ii
              Exit Sub
           End If
                       
          ThisWorkbook.Colors(PPos + 1) = strBGR_Pixel 'パレット変更
          Cells(j, i).Interior.ColorIndex = PPos + 1 '変更したパレットを適用
          PPos = PPos + 1
        End If
'-------------------------------------

      Next i
    Next j

        
        SelectObject hDC, hOrgFont
        SelectObject hDC, hOrgBmp
        
        '描画オブジェクト／デバイスコンテキストの後始末
        DeleteDC hDC
        DeleteObject hBmp

        '★描画更新有効
        ThisWorkbook.Application.ScreenUpdating = True

End Sub

]]> シマトネリコ、ガジュマルなど、観葉植物のその後 tag:www.bird-soft.net,2008:/mt//1.207 2008-07-21T14:54:00Z 2008-07-21T14:58:33Z

簡単ですが、観葉植物のその後です。（数ヶ月でも植物は結構変わるものですね。　...

BIRD http://www.bird-soft.net/ ↑5月24日のシマトネリコ。

↑5月24日のシマトネリコ。小さな新芽がでています。

↑5月24日のシマトネリコ。別のところからも新芽がでています。

↑7月13日現在。順調に成長しています。　（購入時から比較して10～15cmくらい成長）　その他の観葉植物は続きから・・・。]]> ↑5月25日のガジュマル。葉が落ちてきてしまいました。　だんだん元気がなくなってきたため土に植え替えてみました。

↑6月16日のガジュマル。しばらく外に移動しておきました。　　その甲斐あってか新芽もでて復活。（おそらく日照不足のせい？）　　7月現在、新芽も大きくなっています。　　 ◆オリヅルラン　

2008/06/06のオリヅルランきれいな白い花が咲き始めました。写真が追いついていないですが、7月になり、ランナーの葉がとても大きく伸びています。（ランナーから根がではじめました）　　　　　 ◆その他・・・。・ポトスはどの株も順調に成長しています。　（挿し木をしたポトスのうちの一つからから新芽がでて、　成長しています。もう一つのほうはほとんど成長せず。）・クロトンは全く成長していないように見えます。　良くも悪くも買ったときからそのまま。。　　　　・テーブルヤシは新しい葉が少し開きましたが、ほとんど成長は　していないです。GWに水遣りが遅れ、少し葉先が枯れています。　・シュガーバインは一時期小さな新芽もでましたが、　枯れてしまったため、7月19日に処分・・・。

↑7月13日の様子。倒壊してしまいました。　このあと完全に枯死。根がぜんぜん伸びていなかったです・・・。 ]]> Excelアドインの作り方(ツールバーの作成と削除) tag:www.bird-soft.net,2008:/mt//1.220 2008-07-21T03:12:19Z 2008-07-21T03:10:52Z

Excelでアドインを作成する方法が気になったので調べてみました。以下のサイト...

BIRD http://www.bird-soft.net/ http://blog.goo.ne.jp/leapdys/e/bf48ff9d45364a3de9d66e23ee4b681a 　　 VBAのウインドウで、ThisWorkBook上に Private Sub workbook_addininstall() 'インストール時の処理（ツールバーの作成処理） End Sub 　 Private Sub workbook_addinuninstall() 'アンインストール時の処理（ツールバー削除処理） End Sub と書くだけです。　ツールバーの作成のところに、 .OnAction = "マクロ1" の記述がありますが、ここがボタンが押されたときに呼び出される関数で、この関数の定義を標準モジュールに書いておけばOKです。

※コードの内容は「エクセル　アドイン　作り方　第8回」の内容より。　]]> 　　今回の例ではツールバーにニコニコマークみたいなものが現れましたが、これは「FaceId = 59」の記述があるためです。　どのようなマークがあるかは以下のサイトに「ＦａｃｅＩｄ画像の一覧表示ツール」という便利なツールがあるのでこれで調べられます。　　 AddinBox(FaceId一覧) http://www.h3.dion.ne.jp/~sakatsu/FaceIdBrowse.htm 　 ]]> 画像からGetPixelでピクセル情報を取得し、セルの色を変更（Excel VBA） tag:www.bird-soft.net,2008:/mt//1.219 2008-07-20T01:21:05Z 2008-07-25T15:37:09Z

画像からGetPixelでピクセル情報を取得し、セルの色を変更する Excel ...

BIRD http://www.bird-soft.net/ Excelで使える色数に制限があるため、うまくいかないこともありますが、
作ってしまったので載せておきます。

なぜこんなものを作ったかというと、以前の記事と組み合わせて、
画像からピクセル情報をテキストに落としたかったため。

C#を使えばすぐにできるのですが、Excelのセルにも反映させてたら
おもしろそうだと思ってしまったためです。思ったより苦労しました。
VBAでいろいろやろうとすると難しいです＞＜

★概要
・画像を読み込み、Pixel情報を取得
・Excelのセルの色を取得した色に変更
・取得した値をセルの値として入力

↑実行のイメージ
　※実際はセルに値が入ります。
　※Excelの制限により、うまく色がつかないことがあります。
　　⇒参考記事

]]> 　「Excel VBA質問箱 IV」の「【54098】Re:フォーム上のイメージに文字を追加する方法」
　http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=54098;id=excel
　のコードを使わせていただきました。ありがとうございます。
　まだ未整理のため、使わないコードもまざっていますがご了承ください。

↑あらかじめCommandButton1、Image1をUserFormに作成しておきます。
　今回、コードはUserForm1だけに書くだけでよいです。
　C:\test.bmp"にテスト用の画像を配置しておきます。
　（サンプルでは20*20まで。重くなるが、コード変更でさらに大きい画像でも対応可）


Private Const DT_LEFT As Long = &H0
Private Const DT_BOTTOM As Long = &H8
Private Const DT_SINGLELINE As Long = &H20
Private Const TRANSPARENT As Long = 1
Private Const GUID_IDISPATCH_INTERFACE As String = "{00020400-0000-0000-C000-000000000046}"
Private Const CF_BITMAP As Long = 2
Private Const CF_PALETTE As Long = 9
Private Const PICTYPE_BITMAP As Long = 1
Private Const IMAGE_BITMAP As Long = 0
Private Const LR_COPYRETURNORG As Long = &H4
Private Const LR_LOADFROMFILE As Long = &H10
Private Const LOGPIXELSX As Long = 88

Private Type BITMAP
    bmType As Long
    bmWidth As Long
    bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    bmBits As Long
End Type

Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long

Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long

Private Declare Function GetObject Lib "gdi32" _
                         Alias "GetObjectA" _
                        (ByVal hObject As Long, _
                         ByVal nCount As Long, _
                         ByRef lpObject As Any) As Long

Private Declare Function SelectObject Lib "gdi32" _
                        (ByVal hDC As Long, _
                         ByVal hObject As Long) As Long

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long

'★
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long


Private Sub CommandButton1_Click()
    Const FILE_ORIGINAL As String = "C:\test.bmp"

    Dim hDC As Long
    Dim hBmp As Long
    Dim hOrgBmp As Long
    Dim hOrgFont As Long
    Dim hPalette As Long
    Dim hImg As Long
    Dim tBitmap As BITMAP
    Dim Pic As stdole.IPictureDisp
    Dim Ratio As Single
  
    '----------
    Dim i, j, cnt
    Dim BB, GG, RR
    Dim BBh, GGh, RRh
    Dim strBGR
    Dim strBGRLen
    '----------
    
    On Error Resume Next
    With Me.Image1
  
        'Image1に元画像を表示
        .Picture = stdole.LoadPicture(FILE_ORIGINAL)
        .AutoSize = False
        .AutoSize = True
 '       MsgBox "変換前"
    
        '元画像ＢＭＰファイルからデバイスコンテキストを直接作成
        hBmp = LoadImage(0, FILE_ORIGINAL, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)
        hDC = CreateCompatibleDC(0)
        hOrgBmp = SelectObject(hDC, hBmp)
        GetObject hBmp, Len(tBitmap), tBitmap
    
    
    '----------
    '★下位から 8 ビット単位で B、G、R、未使用の順に並んでいます
    'MsgBox (Hex(GetPixel(hDC, 1, 1)))

    'セルの幅を変更
    Columns("A:DD").Select
    Selection.ColumnWidth = 0.62

    Rows("1:100").Select
    Selection.RowHeight = 6


    For j = 1 To 20 Step 1    '縦方向
      For i = 1 To 20 Step 1  '横方向
             strBGR = (Hex(GetPixel(hDC, i, j)))  'ピクセル取得
             strBGRLen = Len(strBGR)    '文字列の長さを取得
             
             '0の数が足りない場合、補う（6桁になるように左に0を追加）
             If strBGRLen < 6 Then
                 For cnt = 1 To 6 - strBGRLen Step 1   '6 - strBGRLen回繰り返す
                     strBGR = "0" & strBGR             '左に0を追加
                 Next cnt
             End If
             
             '16進数で取り出し
             BBh = Left(strBGR, 2)    '左から2つ取り出し
             GGh = Mid(strBGR, 3, 2) '3つめから2つ取り出し
             RRh = Right(strBGR, 2)    '右から2つ取り出し
             
             '10進数に変換
             BB = Val("&H" & BBh)
             GG = Val("&H" & GGh)
             RR = Val("&H" & RRh)

             'セルの色を書き換える
             Cells(j, i).Interior.Color = RGB(RR, GG, BB)
            
         Cells(j, i).Value = (RR & "," & GG & "," & BB & " / " & strBGR)
            
      Next i
    Next j

        '描画オブジェクト／デバイスコンテキストの後始末
        SelectObject hDC, hOrgFont

        SelectObject hDC, hOrgBmp
        DeleteDC hDC
        DeleteObject hBmp
  
  
    End With

End Sub

追記：
「excel vba ゲーム」で検索してみたら、
pacmanパックマン
http://www.geocities.jp/nchikada/pac/index.htm
を見つけました。
Excelのセルの色だけでアクションゲームを作ってしまっています。
これはすごいです。まねできません・・・。

追記2：
エクセルを使って動画にしている人がいました（笑）
さすがにリアルタイムではなくて、
動画からビットマップ抜き出し
⇒減色ツールで減色
⇒Excelのセルに反映
⇒Excel画面のスクリーンショットを取る
⇒上記をつなげて動画にする
のようにしているみたいです。

エクセルでひぐらしのなく頃に解OP‐ニコニコ動画(夏)
http://www.nicovideo.jp/watch/sm1642964

おまけを解説してみた‐ニコニコ動画(夏)
http://www.nicovideo.jp/watch/sm2026262

◆おすすめ減色ソフト
Padie - 高精度な減色専用ツール
http://www.vector.co.jp/soft/win95/art/se063024.html
]]> Excelでセルの色を変える - Interior.Colorでうまくいかない(Excel VBA) tag:www.bird-soft.net,2008:/mt//1.218 2008-07-19T16:55:00Z 2008-07-20T01:38:03Z

前回のExcel VBAでは、オレンジが46など、 Excel VBA特有の色の...

BIRD http://www.bird-soft.net/ 前回のExcel VBAでは、オレンジが46など、 Excel VBA特有の色の指定の仕方をしました。 ⇒例）　　Range("A1").Interior.ColorIndex = 46 ところで、Excel VBAでは、このような指定の仕方以外にも RGBを指定して色を変えられるようです。 ⇒例）　　Range("A1").Interior.Color = RGB(255, 255, 0) そこで、その方法を使ってみましたが、うまく行かないこともあるような・・・。理論上は任意の色を作り出せるはずですが、できないことがあります。（私のやり方が悪いのかもしれないですが・・・）ためしにサンプルを作ってみました。 RGBの値を1ずつ変えながら実行するだけのものです。本当ならきれいなグラデーションとなるはずが、色が分離してしまっています↓

↑色が分かれてしまっている（Excel VBAでのセルの色分けテスト) 　　

↑本来はこうなるはず（Visual C#での色塗りテスト) 　　　もう一例やってみたので紹介します(続きから）]]>

↑色が分かれてしまっている（Excel VBAでのセルの色分けテスト) 　しかも、途中に変な灰色がはいっている・・・。　　

↑本来はこうなるはず（Visual C#での色塗りテスト) 回避方法がわかる方、教えてください・・・。追記：以下のページに同じ悩みがありました。やはり同時に使える色が限られているようです。 Excelのセルの色の変更方法同時に使える色が限られてはいますが、下記のように、カラーパレットを変更すると任意の色にすることはできます。 ThisWorkbook.Colors(1) = RGB(255, 123, 0) 　以下のページが参考になります。エクセル：カラーパレット http://adamontn.blog.ocn.ne.jp/analyst/2007/05/post_4164.html 　　 ※カラーパレットの変更はExcelのメニューバーの　ツール⇒オプション⇒タブ「色」　からも可能

]]> Excelのセルの色を取得、変更する(Excel VBA) tag:www.bird-soft.net,2008:/mt//1.217 2008-07-19T14:59:00Z 2008-07-19T17:02:26Z

Excelのアドインである「らくらく罫線」がすばらしいため、 ExcelのVBA...

BIRD http://www.bird-soft.net/ Excelのアドインである「らくらく罫線」がすばらしいため、
ExcelのVBAに興味がわきました。
VBAで簡単なコードを作ってみたので載せておきます。

◆概要

☆以下の動作をするテストプログラムです。
　・セルの値に応じて、自動でセルの色を色分けする（今回は1～3の3通り）
　・セルの色に応じて、自動でセルに数値を記入（今回は1～3の3通り）
　※いずれもフォームにボタンを配置し、ボタンをクリックしたときの
　　イベントの中のコードのイメージです。

↑マクロ実行例　※あらかじめセルに1～3の数値を入れた物を用意します。
　※今回は１が黒、２がオレンジ、３が赤に変換されます。
　※範囲は16*16個まで。

VBAマクロの中身は続きからどうぞ

]]>


'色分けボタンを押したときの処理
Private Sub CommandButton1_Click()

For i = 1 To 16 Step 1
  For j = 1 To 16 Step 1
      'セルを値に応じて色分けする
      If Cells(i, j).Value = 1 Then
         Cells(i, j).Interior.ColorIndex = 1
      End If
      If Cells(i, j).Value = 2 Then
         Cells(i, j).Interior.ColorIndex = 46
      End If
      If Cells(i, j).Value = 3 Then
         Cells(i, j).Interior.ColorIndex = 3
      End If
      
  Next j
Next i

End Sub

'数値記入ボタンを押したときの処理
Private Sub CommandButton2_Click()

For i = 1 To 16 Step 1
  For j = 1 To 16 Step 1
      '色に応じて数値記入
      If Cells(i, j).Interior.ColorIndex = 1 Then
         Cells(i, j).Value = 1
      End If
      If Cells(i, j).Interior.ColorIndex = 46 Then
         Cells(i, j).Value = 2
      End If
      If Cells(i, j).Interior.ColorIndex = 3 Then
         Cells(i, j).Value = 3
      End If
      
  Next j
Next i

◆リンク
Excel VBA 入門講座
http://excelvba.pc-users.net/

Excel VBA Reference ★文字色とセルの塗りつぶし設定★
http://www.big.or.jp/~seto/vbaref/vbaref4.htm

ColorIndexプロパティ値一覧：Excel エクセルの使い方-マクロ/VBA
http://www.relief.jp/itnote/archives/000482.php

]]> 表をテキストで表現する - らくらく罫線 tag:www.bird-soft.net,2008:/mt//1.214 2008-07-06T15:20:00Z 2008-07-20T01:48:36Z

おもしろいソフトを見つけたので紹介します。 Excelで表で作ったものをテキスト...

BIRD http://www.bird-soft.net/

↑作成イメージ。操作は簡単。

↑複雑な表もあっというまにテキストにできる。らくらく罫線のダウンロード（Vector) http://www.vector.co.jp/soft/win95/net/se336721.html ]]> ◆おまけ以下が実際のテキストです。 ※等幅フォント（MS　ゴシックなど）で見てください。 ※プロポーショナルフォント（MS　Ｐゴシックなど）で見るとずれてしまいます。　　┌───────────────────────────┐ 　　│ 2008年7月 │ 　　├───┬───┬───┬───┬───┬───┬───┤ 　　│ 日 │ 月 │ 火 │ 水 │ 木 │ 金 │ 土 │ 　　├───┼───┼───┼───┼───┼───┼───┤ 　　│ │ │ 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 │ │ │ 　　└───┴───┴───┴───┴───┴───┴───┘ sftpでファイルを自動転送(TeraTermマクロ) tag:www.bird-soft.net,2008:/mt//1.215 2008-07-06T14:00:00Z 2008-07-06T15:15:40Z

sftpでファイルを自動転送する簡単なTeraTermマクロを作ってみました。 ...

BIRD http://www.bird-soft.net/ いつも同じディレクトリにファイルを転送するような場合に有効です。
（ただし、パスワードを平文で書いているのでセキュリティ的には×です）

なんてことはないTeraTermマクロなのですが、文字列をつなげるのに
strconcatをつかうのがポイントです。

◆使い方

1.マクロに書いてあるユーザ名、ホスト名、パスワード、アップロードディレクトリ
等をあらかじめ書き換えておく。（★部分）

2.転送元マシンにログインする

3.マクロを実行

4.自動的に対象マシンにログインされ、
　ダイアログが表示されるのでディレクトリ名を入力

5.アップロード完了

マクロは続きからどうぞ

]]>

リンク
TeraTermのダウンロード（窓の杜）
http://www.forest.impress.co.jp/lib/inet/servernt/netuty/utf8teraterm.html
]]> テキストの周りに枠を生成するスクリプト(Perl) tag:www.bird-soft.net,2008:/mt//1.213 2008-06-28T11:35:47Z 2008-06-28T11:56:37Z

テキストファイルを指定すると、そのテキストの周りにテキストで枠をつけるPerl...

BIRD http://www.bird-soft.net/ 枠をつけるPerlスクリプトを作成してみました。
（但し、等幅フォントでないと表示がずれます）

最近では需要はあまりないかと思いますが、
メールなど、テキストベースの物を作る際に役に立つと思います。

・使い方
1.「設定」部分を書き換える
　・読み込むディレクトリ、ファイル名
　・結果出力ディレクトリ、ファイル名
2.変換ファイル作成
　・読み込むディレクトリ、ファイル名
　　で指定したファイルに変換したい文字列を書き込む
3.変換スクリプトを実行する
4.結果出力ディレクトリ、ファイル名
　　で指定したファイルに変換後の文字列が出力される

※「設定」の「部品」の部分を変えるといろいろな枠にすることができます。

・実行例：
D:\Data\temp>textConv.pl
書き出したファイル：D:\Data\temp\test_conv.txt

◆サンプル

⇒

↑変換前テキスト　　　　　　　　　⇒　↑変換後テキスト

スクリプトは続きより見てください。

]]>

# テキスト変換
# 2008年06月 作成
# テキストの周りに枠を生成するスクリプト

#--------------設定--------------

#読み込むディレクトリ、ファイル名
$rdirname='D:\Data\temp';
$rfilename="test.txt";

#結果出力ディレクトリ、ファイル名
$wdirname='D:\Data\temp';
$wfilename="test_conv.txt";

#横の長さ
$MaxNo=100;

#部品
$T_Block = "─";
$L_Block = "│";
$R_Block = $L_Block;
$B_Block = $T_Block;
$TL_Block = "┌";
$TR_Block = "┐";
$BL_Block = "└";
$BR_Block = "┘";

#--------------------------------

# ファイル読み込み
@loadstr = &load_file($rdirname,$rfilename);

# ファイル書き込み
&write_file($wdirname,$wfilename);

print "書き出したファイル：$wdirname\\$wfilename\n";

#-----------------------------------------------------------
# ファイル読み込み。1行づつの配列を返す(ディレクトリ名,ファイル名)
# 末尾の改行は削除する。
sub load_file() {
	my @loadstr0=();
	open(IN, "<$_[0]\\$_[1]");
	while ( $line = <IN>) {   # ファイルを１行ずつ読み込み、EOFで終了
		#print $line;
		$line =~ s/\n//;  #改行削除
		push(@loadstr0, $line);    #配列の最後に追加
	}
	close(IN);
	return @loadstr0;
}

# ファイル書き込み。(ディレクトリ名,ファイル名)
# @loadstr参照
sub write_file() {
	open(FILE, ">$_[0]\\$_[1]") or die;

	#上側
	print FILE " $TL_Block";
		for($j = ($MaxNo/2) ; $j > 0 ; $j--){
			print FILE "$T_Block";
		}
	print FILE "$TR_Block\n";

	$i = 0;
	foreach $t (@loadstr){    #ファイルへ出力

		#----中身生成-------------
		print FILE " $L_Block$loadstr[$i]";  #始まりと内容

		$strlen1 = length ("$t");
		$loop_count = $MaxNo - $strlen1;
		for($j=$loop_count ; $j > 0 ; $j--){
			print FILE " ";          #スペースで足りない部分を補う
		}
		print FILE "$R_Block\n";		#閉じと改行
		#------------------------
		$i++;
	}

	#下側
	print FILE " $BL_Block";
		for($j = ($MaxNo/2) ; $j > 0 ; $j--){
			print FILE "$B_Block";
		}
	print FILE "$BR_Block\n";

	close(FILE);
}

]]> 実用ミニシェルスクリプト（ファイル一括削除） tag:www.bird-soft.net,2008:/mt//1.212 2008-06-15T11:30:00Z 2008-06-15T11:47:52Z

ディレクトリ内に圧縮ファイルがあれば、その圧縮前のファイルらしきものを一括削除...

BIRD http://www.bird-soft.net/ 一括削除するシェルを作成してみました。
（判定は単純にファイル名だけで行っています）

◆このシェルの内容
カレントディレクトリのファイル、ディレクトリ全てを調べ、すでに「名前.tar.gz」の
ファイルがある場合は「名前」のファイル（またはディレクトリ）を削除する
※但し、「.tar.gz」が含まれるものは対象外

.tar.gzがついたファイル名のものは圧縮ファイルという前提で作っています。
（.tgzなどの圧縮ファイルには対応していません）

◆ご注意
このスクリプトでは「rm -rf」で削除を行っていますので、
実行する場合は十分注意した上で、自己責任でご使用ください。

※内容は続きから見てください。
]]>

#!/bin/sh
echo "start"

# カレントディレクトリのファイル、ディレクトリ全てを調べ、
# すでに「名前.tar.gz」のファイルがある場合は
#「名前」のファイル（またはディレクトリ）を削除する
# 但し、「.tar.gz」が含まれるものは対象外

PWDDIR=`pwd`

# 確認メッセージ。"yes"の入力でスタート
echo -n "Del ${PWDDIR} ? yes or no=>"
read INPUTSTRING

if [ $INPUTSTRING == yes ]
then
    echo "START DEL"
else
    echo "CANCEL"
    exit 0
fi

#----------------------------

# ディレクトリ内のファイル、フォルダを列挙
# (.tar.gzがつくもの以外についてループ処理する)
for FILE in `\ls -1 | grep -v .tar.gz` 
do
    #ファイルチェック
    if [ -f ${FILE}.tar.gz ]
    then
        #圧縮ファイルがあるとみなす
        echo "rm -rf ${FILE}"   #元ファイル削除
        rm -rf ${FILE}
    else
        echo "***file not found : ${FILE}.tar.gz"
    fi
done

echo "end"

◆参考サイト
UNIX & Linux コマンド・シェルスクリプトリファレンス
http://www.geocities.jp/geo_sunisland/

]]> Linuxでタブ補完ができないときの対処法 tag:www.bird-soft.net,2008:/mt//1.211 2008-06-05T15:10:55Z 2008-07-21T12:30:40Z

Linuxでタブ補完ができない、履歴が矢印キーで表示できない、 Tabキー、矢印...

BIRD http://www.bird-soft.net/ Linuxでタブ補完ができない、履歴が矢印キーで表示できない、 Tabキー、矢印キーやESCキーを押すと文字化けしたようなものが表示される・・・。そんな困ったことがおきたので調べてみました。 ◆対策シェルオプションが足りないらしいので、対象のものををonとする。（例えば、以下のようにemacsをonにする） 1.set -oを実行 $ set -o allexport off braceexpand on emacs off （以下略）となっていたら、 2.set -o emacsを実行 3.set -oで確認 $ set -o allexport off braceexpand on emacs on （以下略） ⇒これでOKです。続きにはオプションのメモ、参考リンクがあります。 Tab補完と履歴について - Linux Square 　　 2008/7/21追記：以下のサイトにさらに詳しく載っていました。 set -o emacsでもタブ補完できないマシンがあったのですが、もしかしてkshでなくてshだったのかも・・・。　 Bashが入っていなくてTAB補完（ファイル名補完）が出来ない時の回避策 http://d.hatena.ne.jp/GARAPON/20070925/1190707920]]> 実用ミニシェルスクリプト（ディレクトリ内のファイルを一括圧縮） tag:www.bird-soft.net,2008:/mt//1.210 2008-06-05T13:24:22Z 2008-06-06T11:21:17Z

前回の記事のスクリプトを元に、ディレクトリ内のファイルを一括圧縮する物を作成し...

BIRD http://www.bird-soft.net/ 前回の記事のスクリプトを元に、ディレクトリ内のファイルを一括圧縮する物を作成してみました。

◆このシェルの内容
・カレントディレクトリ内のファイルを一括圧縮
　（tarコマンドで固める）
※但し、「.tar.gz」がファイル名に含まれるものは対象外
　また、すでに「ファイル名.tar.gz」のファイルがある場合は圧縮しない

.tar.gzがついたファイル名のものは圧縮ファイルという前提で作っています。
（.tgzとかの圧縮ファイルがある場合は圧縮してしまいますので、スクリプト改造で対応するとよいと思います）

※内容は続きから見てください。]]>

#!/bin/sh
echo "start"

# カレントディレクトリのファイル、ディレクトリ全てを
# tarコマンドで固めるシェル
# 但し、「.tar.gz」がファイル名（ディレクトリ名）に含まれるものは対象外
# また、すでに「ファイル名.tar.gz」のファイルがある場合は圧縮しない

PWDDIR=`pwd`

# 確認メッセージ。"yes"の入力でスタート
echo -n "tar ${PWDDIR} ? yes or no=>"
read INPUTSTRING

if [ $INPUTSTRING == yes ]
then
    echo "START TAR"
else
    echo "CANCEL"
    exit 0
fi

#----------------------------

# ディレクトリ内のファイル、ディレクトリを列挙
# (.tar.gzがつくもの以外についてループ処理する)
for FILE in `\ls -1 | grep -v .tar.gz` 
do
    #ファイルチェック
    if [ -f ${FILE}.tar.gz ]
    then
        #圧縮ファイルがあるとみなす
        echo "***${FILE}.tar.gz already exist."
    else
        echo "tar zcvf ${FILE}.tar.gz ${FILE}"
        tar zcvf ${FILE}.tar.gz ${FILE}          #圧縮実行
    fi
done

echo "end"

◆参考サイト
UNIX & Linux コマンド・シェルスクリプトリファレンス
http://www.geocities.jp/geo_sunisland/

]]>