求助，获取用户在命令行输入的字符串

xingang1005

获取用户输入的字符串，不要用ed.GetString方法，就是用户在命令行输入一串字符串回车之后得到命令行输入的内容，有没有解决方案，帮解决的感激不尽，困扰好久了

xingang1005

能解决的给个大红包我都愿意啊

琴剑江山_10184

xingang1005 发表于 2016-8-4 12:44
能解决的给个大红包我都愿意啊

(GETVAR 'LASTPROMPT)
大红包呢，拿来

(defun c:Tt (/ dd)
  (setq dd (getstring "\n输入内容:"))  
  (princ (strcat "\n获取内容:" (GETVAR 'LASTPROMPT)))
  (princ)
  )

偶尔做做怪

.net板块  来个.NET的函数
'--------------------输入文字
    Public Shared Function 输入文字(ByVal ts As String) As String

        Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor

        Dim optdou As New PromptStringOptions(vbCrLf & ts)

        optdou.AllowSpaces = False

        Dim resdou = ed.GetString(optdou)

        If resdou.Status = PromptStatus.OK Then

            Dim 文字 As String = resdou.Value
            Return 文字
        Else
            Return New String("")
        End If
    End Function

偶尔做做怪

虽然用了GETstring函数，但是返回的是用户输入的字符，满足你的要求，ts是提示信息
dim  str as string=输入文字(“请输入文字”)

偶尔做做怪

上面有个错误，这个测试可用
    Public Shared Function 输入文字(ByVal ts As String) As String

        Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor

        Dim optdou As New PromptStringOptions(vbCrLf & ts)

        optdou.AllowSpaces = False '允许空格就=TRUE

        Dim resdou = ed.GetString(optdou)

        If resdou.Status = PromptStatus.OK Then

            Dim 文字 As String = resdou.ToString
            文字 = Mid(文字, 5, 文字.Length - 5)
            Return 文字
        Else
            Return New String("")
        End If

    End Function

xingang1005

琴剑江山_10184 发表于 2016-8-4 13:27
(GETVAR 'LASTPROMPT)
大红包呢，拿来

大神 我用的是C#

xingang1005

偶尔做做怪 发表于 2016-8-6 21:39
上面有个错误，这个测试可用
    Public Shared Function 输入文字(ByVal ts As String) As String

我得给他翻成C#，如果可行，给你点报酬怎样

xingang1005

偶尔做做怪 发表于 2016-8-6 21:39
上面有个错误，这个测试可用
    Public Shared Function 输入文字(ByVal ts As String) As String

这个没用的，你这是提示输入字符串，我要的是不提示用户输入

偶尔做做怪

没明白你的具体要求哦