めもめも。

入れてみた
OS ubuntu 10.04

perlbrewダウンロード
# wget http://xrl.us/perlbrew

実行権限付与
# chmod +x perlbrew

初期化
# ~/perlbrew/bin/perlbrew init

自分は、zshなので.zshrに
source $HOME/perl5/perlbrew/etc/bashrc
を追記

再読み込みさせる
# source ~/.zshrc

以上。
あとは、
# perlbrew install perl-5.14.0
のように指定してインストール。

tail -f ~/perl5/perlbrew/build.log
で停止したように見えるけど30分?60分?とにかく気長にまつとインストール完了。
インストール完了したら下記メッセージが表示される。

Installed /home/maeyan/perl5/perlbrew/build/perl-5.14.0 as perl-5.14.0 successfully. Run the following command to switch to it.

perlbrew switch perl-5.14.0


あとは、
# perlbrew switch perl-5.14.0
で切り替える。

インストールしたperl一覧は
# perlbrew list で確認できる。

mysqlとらぶる

max OS X 10.5x→10.7xにアップグレードを済ませて
MySQLを動かそうと思ったら動かない。
なんでかな？？
と、悩んでバージョンアップもしておきたかったので
まず先にバージョンアップをしてみた。

10.6用の64ビット用dmgをダウンロード
さっそく実行
mysql-5.5.15--osx10.6-x86_64.pkg
で、起動時自動実行してもらうために
MySQLStartupItem.pkg
も実行。
そして、MySQL.prefPane
も一応実行。
システム環境設定にあるMySQLの項目ですね。


システム環境設定にあるMySQLのパネルから
実行してみたのですが何の音沙汰もなくstopのまま。

次に、コマンドから実行してみる。
sudo /Library/StartupItems/MySQLCOM/MySQLCOM start

これもだめ。
たまたまある不具合を見ていたら
上記で行っているのは、
sudo /usr/local/mysql/support-files/mysql.server start
と、同義なのでこれを実行してみる。
あいかわらずだめ。

ERROR! The server quit without updating PID file
とかで叱られる。
これについてネットで調べると
/etc/my.cnf
に問題あるんじゃん。
ってことになって、
自分の場合↓を削除したら解決できました。
default-character-set = utf8


後は、コマンでrootのパスを指定して
つかっておりまする。
mysqladmin -u root -h localhost password "好きなぱすわーど"

更新とかのめも

■ドメインの有効期限を変更（延長）
⇒VALUE-DOMAIN.COMにアクセスする
https://www.value-domain.com/login.php
⇒メニューの「有効期限確認/更新・延長」を選択
⇒期限を変更したドメインを選択
⇒変更ボタンをクリック
⇒年数を選んで更新。

■サーバーの有効期限を変更（延長）

⇒VALUE-DOMAIN.COMにアクセスする
https://www.value-domain.com/login.php
⇒メニューの「サーバーアカウントの登録・管理・購入」を選択
⇒期限を変更したサーバーの購入をクリック
⇒料金を選んで購入。

てすと

Option Explicit
On Error Resume Next
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")

Dim LockDirectoryPath, LogFilePath
LockDirectoryPath = FSO.GetAbsolutePathName("lock")
LogFilePath       = FSO.GetAbsolutePathName("log.txt")

'ロックファイル作成
Do
    FSO.CreateFolder(LockDirectoryPath)
    if Err.Number = 0 then Exit Do
    Err.Clear
Loop


'書き込むファイルを作成
if Not FSO.FileExists(LogFilePath) Then
    Do
        Err.Clear
        FSO.CreateTextFile(LogFilePath)
        if Err.Number = 0 then Exit Do
    Loop
    
End If

'ファイルから１行読み取る
Dim File, OneLine
Err.Clear
Set File = FSO.OpenTextFile(LogFilePath, 2, True)
If Err.Number = 0 then
    OneLine = File.ReadLine
    
    if OneLine = "" then
        OneLine = 0
    Else
        OneLine = OneLine + 1
    End If
    
    Err.Clear
    File.Write(OneLine)
    If Err.Number = 0 Then msgbox "書き込みエラー"
    File.Close
End If



Set File = Nothing
Set FSO  = Nothing
On Error Goto 0
msgbox "終了"

単なるめも。後で修正が必要

ExcelVBAかなりざっくりしためも

モジュール、ブック、シートをを全て表示する

Sub SampleCode1() '
    Dim VBComponent As Variant
    For Each VBComponent In ThisWorkbook.VBProject.VBComponents
        Debug.Print VBComponent.CodeModule
        Debug.Print VBComponent.Type
    Next
End Sub

type
１→標準モジュール
２→クラスモジュール
３→フォーム
100→Documentモジュール

'Module1内のプロシージャ名を列挙する

Sub SampleCode2()
    Dim TempProcName As String
    Dim ProcNames As String
    Dim i As Long
    
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
        For i = 1 To .CountOfLines
            If TempProcName <> .ProcOfLine(i, 0) Then
                TempProcName = .ProcOfLine(i, 0)
                Debug.Print TempProcName
            End If
        Next i
    End With
End Sub