• Alexys
  • Восстановленный участник
  • На форуме с 11 августа 2006г.
  • Сообщений: 63
  • Спасибо: 0

Тема: Как можно считать строку символов от пользователя ?

Как можно считать строку символов от пользователя ?
Знаю функцию getstring. А еще что-либо есть для считывания строки символов ?

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как можно считать строку символов от пользователя ?

InputBox :)

  • Alexys
  • Восстановленный участник
  • На форуме с 11 августа 2006г.
  • Сообщений: 63
  • Спасибо: 0

Re: Как можно считать строку символов от пользователя ?

Что за inputbox ? Я конекчусь из внешней программы.
Есть пример строки кода ?

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как можно считать строку символов от пользователя ?

Стоп, разговор про VBA или не совсем? В VBA есть стандартная функция:

res=inputbox(prompt,title,default)

В чистом VB тоже есть. Насчет остальных языков не знаю.
В AutoCAD можно использовать и

RetVal = GetString(HasSpaces[, Prompt])

Пример из справки:

Sub Example_GetString()
    ' This example demonstrates different ways of returning a string
    ' entered by a user.
    Dim returnString As String
    ' Prompt & Input cannot contain blanks
    returnString = ThisDrawing.Utility.GetString(False, "Enter text (a space or <enter> terminates input): ")
    MsgBox "The string entered was '" & returnString & "'", , "GetString Example"
    ' Prompt & Input can contain blanks
    returnString = ThisDrawing.Utility.GetString(True, "Enter text (<enter> terminates input):")
    MsgBox "The string entered was '" & returnString & "'", , "GetString Example"
    ' Prompt & Input can contain blanks, but not an empty string
    Dim NoNull As Integer
    NoNull = 1    ' Disallow null
    ThisDrawing.Utility.InitializeUserInput NoNull
    returnString = ThisDrawing.Utility.GetString(True, "Enter text (<enter> terminates input): ")
    MsgBox "The string entered was '" & returnString & "'", , "GetString Example"
End Sub