Hsieh

¦^´_ 1# hochoc

1. Sub nn()
   
2. mystr = "~ Update `getnewdir` `new_dir_input` \" & Chr(10) & _
   
3. "`" & [A1] & "`" & Chr(10) & _
   
4. "~ Activate `getnewdir` `OK_button`" & Chr(10) & _
   
5. "~ Activate `file_open` `Open`" & Chr(10) & _
   
6. "!%CISuccessfully changed to D:\" & [A1] & " directory." & Chr(10) & _
   
7. "1 `Assembly`" & Chr(10) & _
   
8. "~ Input `new` `InputPanel1` \" & Chr(10) & _
   
9. "`" & [A1] & "`" & Chr(10) & _
   
10. "~ Update `new` `InputPanel1` \" & Chr(10) & _
    
11. "`" & [A1] & "`" & Chr(10) & _
    
12. "~ Activate `new` `OK`" & Chr(10) & _
    
13. "!01-Sep-10 11:41:38 Start D:\" & [A1] & "\" & [A1] & ".asm.1" & Chr(10) & _
    
14. "!01-Sep-10 11:41:38 End D:\" & [A1] & "\" & [A1] & ".asm.1"
    
15. Open "E:\TESTFILE.txt" For Output As #1 '¿é¥XÀɦW¦Û¦æ­×§ï
    
16. For Each a In Split(mystr, Chr(10))
    
17. Print #1, a
    
18. Next
    
19. Close #1
    
20. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 4# hochoc

¼Ë¥».txtªº¤º®e¥Î¯S©w¦r¥ý±N­n¥ÎA1¨ú¥Nªº¦r¤¸¨ú¥N
    ~ Update `getnewdir` `new_dir_input` \
`Àx¦s®æ¤º®e`
~ Activate `getnewdir` `OK_button`
~ Activate `file_open` `Open`
!%CISuccessfully changed to D:\Àx¦s®æ¤º®e directory.
1 `Assembly`
~ Input `new` `InputPanel1` \
`Àx¦s®æ¤º®e`
~ Update `new` `InputPanel1` \
`Àx¦s®æ¤º®e`
~ Activate `new` `OK`

!01-Sep-10 11:41:38 Start D:\Àx¦s®æ¤º®e\Àx¦s®æ¤º®e.asm.1
!01-Sep-10 11:41:38 End D:\Àx¦s®æ¤º®e\Àx¦s®æ¤º®e.asm.1

1. Sub nn()
   
2. Open "C:\¼Ë¥».txt" For Input As #1 '¼Ë¥»ªº§¹¾ã¸ô®|
   
3. Open "C:\§¹¦¨.txt" For Output As #2 '¿é¥XÀɮתº§¹¾ã¸ô®|
   
4. Do Until EOF(1)
   
5.    Input #1, mystr
   
6.    Print #2, Replace(mystr, "Àx¦s®æ¤º®e", [A1])
   
7. Loop
   
8. Close #1
   
9. Close #2
   
10. End Sub

½Æ»s¥N½X