☰

문제: 출품작 주변에 문구가 필요합니다. 안 그랬으면 더 좋았을 텐데.

tag-icon • tag-icon vbscript launchy
문제: 출품작 주변에 문구가 필요합니다. 안 그랬으면 더 좋았을 텐데.

txt 파일에 작은 텍스트 조각을 추가하고 싶습니다.

누군가 이에 대한 시스템을 갖고 있다면 자유롭게 게시해 주세요. 만들어보려고 합니다.

~에http://sourceforge.net/p/launchy/discussion/451015/thread/abba414b이것을 사용하여 이에 대한 논의가있었습니다.런치(내가 이미 사용했던 것 - 완벽함)

Launchy가 색인화하는 폴더에 vbs 스크립트를 추가한 다음

~에탭"파일에 있는 내 물건"입력하다

그리고 작업이 완료되었습니다.

스크립트가 여기로 옵니다

at.vbs

Const ForAppending = 8
Dim strTextFile
Set objArgs = WScript.Arguments
strTextFile = "C:\home\todo.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strTextFile) Then
    Set objFile = objFSO.OpenTextFile(strTextFile, ForAppending)
Else
    Set objFile = objFSO.CreateTextFile(strTextFile)
End If
objFile.WriteLine objArgs(0)
objFile.Close

문제: 출품작 주변에 문구가 필요합니다. 안 그랬으면 더 좋았을 텐데.

다음 이후에 이 스크립트를 찾았습니다.

  1. 인터넷 검색 txt 창 추가
  2. 독서http://lifehacker.com/284127/take-launchy-beyond-application-launching
  3. 독서http://benkraal.wordpress.com/2007/05/16/launchy-append-text-to-a-file-from-anywhere/
  4. 위에 링크된 Sourceforge 토론에 착수

txt 파일의 경로를 \Dropbox\FolderA에서 \Dropbox\FolderB로 변경할 수 있고 스크립트가 그대로 유지된다면 보너스입니다.

답변1

항목 주위에 큰따옴표를 피하려면, 즉 대신에 누르려면 다음 코드 조각을 at my things in the file대신 at "my things in the file"사용할 수 있습니다 objFile.WriteLine objArgs(0).

strResult = ""
For ii = 0 to objArgs.Count - 1
   strResult = strResult & CStr( objArgs( ii)) & Space( 1)
Next
objFile.WriteLine Rtrim( strResult)

관련 정보