Question

我有两个提示，应该由用户填写。

目标是用户填写两个提示，并且输出应将两者组合为文件名。

例如，用户键入第一个输入框“ Ryan”和第二个输入框“ Smith”。因此，输出应该是一个名为“ Ryan_Smith”的文件，但没有文件扩展名。

当前，它保存在“ edit.txt”输出文件中，因为我不知道如何按照自己的意愿完成它。

Sub MyInputBox()
    Do
        firstNameInput = InputBox("First Name")
    Loop Until firstNameInput <> ""

    Do
        lastNameInput = InputBox("Second Name")
    Loop Until lastNameInput <> ""

    RootFolder = Ws.ExpandEnvironmentStrings("%USERPROFILE%\Desktop")
    MyFile = RootFolder & "\Edit.txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fileStream = fso.OpenTextFile(MyFile,ForAppending,True)
    fileStream.WriteLine "First Name: " & firstNameInput
    fileStream.WriteLine "Second Name: " & lastNameInput
    fileStream.WriteLine String(30,"*")
    fileStream.Close
End Sub

Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function

Answer 1

您可以将CreateTextFile用于目的。

例如：

styles.xml

VBS InputBox，不带文件扩展名的输出

1 个答案: