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

xingang1005 · 发表于 2016-8-4 12:43:00

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

xingang1005 · 发表于 2016-8-4 12:44:00

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

琴剑江山_10184 · 发表于 2016-8-4 13:27:00

(GETVAR 'LASTPROMPT)
大红包呢，拿来
(defun c:Tt (/ dd)
  (setq dd (getstring "\n输入内容:"))
  (princ (strcat "\n获取内容:" (GETVAR 'LASTPROMPT)))
  (princ)
  )

偶尔做做怪 · 发表于 2016-8-4 22:50:00

.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

偶尔做做怪 · 发表于 2016-8-4 22:55:00

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

偶尔做做怪 · 发表于 2016-8-6 21:39:00

上面有个错误，这个测试可用
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