自動ログイン（tera term）

; Sample macro for Tera Term
;  Telnet login
; open Tera Term
;   command line = 'TERATERM 10.251.172.89' (telnet)
connect 'XXX.XXX.XX.XX'
; set username
UsernamePrompt = 'login:'
Username = 'user-name'
; set password
PasswordPrompt = 'Password:'
Password ='pwd'
; login
wait   UsernamePrompt
sendln Username
wait   PasswordPrompt
sendln Password
; OK, auto login complete.
; ログ指定
logopen 'c:\XXXX.log' 0 1
sendln 'set -o vi'
wait '#'
; マスタデータ導入パス
sendln 'cd xxx etc'

日付選択

Japan:TZ=JST-9 yesterday echo $(TZ=JST+9 date '+%y/%m/%d') 
grep $(TZ=JST+9 date '+%y/%m/%d') alllog.log > logyesterday.log
※>は上書き、>>は追記

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")
'Get Current Directory path
Set objFolder = objFSO.GetFolder(objWshShell.CurrentDirectory)

GetFile objFolder
Sub GetFile(colSubfolders)
'Delete the subfolder named cvs    
   ' Set colSubfolders = colSubfolders.Subfolders

    For Each objSubfolder in colSubfolders.Subfolders 
         If objSubfolder.Name="CVS" or objSubfolder.Name=".metadata" then
   Wscript.Echo objSubfolder.Path
          objFSO.DeleteFolder(objSubfolder)  
   i=i+1  
  Else
  'Wscript.Echo objSubfolder.Name
  GetFile objSubfolder
         End If 
    Next
End Sub
Wscript.Echo i & "件のCVSファイルを削除しました。"

下班后接受测试，做完后不知道哪里出了问题，死活不出测试结果最终考了零蛋。

不爽瞎点一通糊弄在线考试了。有心情时再来过。

明天或许有用，先贴上。

Sub Macro()
    Dim FSO, fold, i As Integer
    Set FSO = CreateObject("Scripting.FileSystemObject")

    Set fold = FSO.GetFolder("D:\study")
    i = 1
    For Each myFile In fold.SubFolders

        If StrConv(Right(myFile.Name, 4), vbLowerCase) = ".pdf" Then
            'Workbooks.Open Filename:=myFile.Path

            Sheets(1).Cells(i, 1) = myFile.Path
            i = i + 1
        End If
    Next
    Set FSO = Nothing

End Sub
Sub Test()
    Dim FoundFile As String, i As Integer

    i = 1
    'FoundFile = Dir(ThisWorkbook.Path & "\*.xls")
    FoundFile = Dir("D:\study\C++\*.pdf")
    Do While FoundFile <> ""

        If FoundFile = "." Then
            Debug.Print FoundFile
        End If

        Sheets(1).Cells(i, 1) = FoundFile
        FoundFile = Dir()
        i = i + 1
    Loop
End Sub

Sub Test1()

    EnumFiles "d:\study\c++"    ' 遍历指定目录下的文件
End Sub

Sub EnumFiles(ByVal sPath As String)

    Dim fs As New FileSystemObject
    GetFile fs.GetFolder(sPath)
    Set fs = Nothing

End Sub

Sub GetFile(ByVal fldParent As Folder)
    Dim fldSub As Folder, fSub As File

    For Each fldSub In fldParent.SubFolders
        GetFile fldSub
    Next
    For Each fSub In fldParent.Files

        If UCase(Right(Trim(fSub), 3)) = "PDF" Then     ' 文件类型判断
            Debug.Print fSub
        End If

    Next
    Set fldSub = Nothing
    Set fSub = Nothing
End Sub

Bizzard.♧♧ 说:
((((;゜Д゜)))
你好啊
  まいこ 说:
こんにちは、Bizzard.♧♧ It's my lifeさん！
  知りたい情報を、メニューから選んで下さいね。
いつでも「メニュー」や「ヘルプ」とタイプして [送信] をクリックすることで、メニューが確認できますよ。
(例：メニュー)
Мне нравится испанский
你好。
Bizzard.♧♧ It's my life 说:
머라 좀 대답해주세요
  まいこ 说:
저랑 한국말 해요!
Bizzard.♧♧ It's my life 说:
지금 멀 하구계시는거죠?
  まいこ 说:
무슨 뚯이예요?
Bizzard.♧♧ It's my life 说:
날씨 알려줘요.중국 상해
  まいこ 说:
저는 이해가 안됩니다. 
Bizzard.♧♧ It's my life 说:
날씨
  まいこ 说:
I like the Korean language, but I don't speak it very well yet!
Bizzard.♧♧ It's my life 说:
well.then how about japanese?
  まいこ 说:
なんてお答えしたらよいのかわかりません。
Bizzard.♧♧ It's my life 说:
I'd like to know weather.
  まいこ 说:
よくわかりません。
「メニュー」 や 「ヘルプ」 とタイプして [送信] をクリックすると、使い方のメニューを表示します。
Bizzard.♧♧ It's my life 说:
menu
  まいこ 说:
   Windows Live™ メッセンジャー 機能紹介メニュー
[1] メンバーの登録 - まずはこれから！
[2] Windows Live メッセンジャー とは？
[3] 1対1での会話
[4] 絵文字を使った会話
[5] 表示アイコンの変更
[6] 表示名の変更
[7] 背景の設定
[8] テレビ電話
[9] # 10 以降のメニューを表示
[0] メニューを終了する
メニューの番号をタイプして、[送信] して下さいね。
Bizzard.♧♧ It's my life 说:
9
  まいこ 说:
   Windows Live™ メッセンジャー 機能紹介メニュー
[10] 表示メッセージの設定
[11] 絵文字や表示アイコンをゲット
[12] ファイルのやり取り
[13] 音声通話
[14] 今日のニュースをチェック
[15] Windows Live™ メッセンジャー ニュースアラートに登録
[16] Windows Live™ メッセンジャー 公式サイト
[17] # 9 以前のメニューを表示
[0] メニューを終了する
メニューの番号をタイプして、[送信] して下さいね。
Bizzard.♧♧ It's my life 说:
14
  まいこ 说:
[14] 今日のニュースをチェック が選択されました。
下のリンクをクリックして、ウェブページで使い方を覚えましょう。
http://g.msn.co.jp/jppr/245

没事报名考初级程序员，本想应该蛮简单的。刚刚看了一下模拟试题。。。傻眼了。除了几个excel的问题其他的一概不会啊。明天要上刑场自取其辱了。。。还要打车上阵，亏大了。sigh…

昨天晚上看片子忘了关dvd，今天下班回来dvd还在播放中。压缩碟真是猛啊。。。

摆姿势实在不拿手，还好拍得不太多。

查看整个相册

前阵子因为项目的关系加上人比较懒，最近写了一小段vba完成文档的格式化。 今天下午才发现，我的格式化部分有问题。 看来看去发现原文件是txt格式并且是shift-jis而不是unicode。 excel貌似打开文件后默认把文件内容当成unicode。 折腾了半天后死马当活马医，给Workbooks.OpenText加上Origin:=932。竟然通过了。 Origin:=xlWindows时不知道是不是默认用unicode的，不过不是vba打开的话文件不会是乱码。这算是vba和excel自身功能之间不同步导致的bug? 害我改了十七八个文档。。。

http://news.carnoc.com/list/30/30115.html

http://itbbs.pconline.com.cn/notebook/9972721.html

http://caac.people.com.cn/BIG5/114104/8991687.html

相比其它新闻这个好懂一些的。今天破天荒可以下载了。看门的大概忘关门了吧。趁此机会多下几个～～

昨天浏览网页时看到手机固件升级的内容一冲动给e50升级固件了。虽然手机都想换了，不过很想知道e50后来固件升级是否支持sdhc所以。。。

升级前还算谨慎备份了手机联系人，短信配置信息等等再升级的。升级完毕后恢复手机信息。本来没想过会出问题的，没想到恢复联系人死活弄不好。本以为从nbu文件里找回csv后可以导入到联系人里的，没想到诺基亚的csv格式跟excel的默认格式不同而且是unicode格式的。模仿诺基亚的那种格式写csv，试了好几个小时都失败。不知道哪里有问题。躺在床上用触摸板操作又不方便加上懒得爬起来。自顾自的懊恼。老婆打给我电话时真想把手机扔掉，sigh…

总算找到人家写好的vbs提取nbu里面的联系人信息制作vcf再导入才算解决联系人的问题。

烦了一晚终于可以解脱了。

在家上网找pl/i的资料。在公司里只看到e文的，在csdn无意中发现pl/i中文版下载之。打开一看，靠！这不就是我们公司的吗？莫非人家知道我修炼英语故意给我英语资料顺便复习的？