Park Yongjin

自動ログイン（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…