在运行时，不断提示输入一行，直到用户输入了某些内容（空换行符除外），即不只是按Enter或OK。既不需要也不禁止输出或结果。

伪代码1

myform = new form("GUI")
myform.mytxt = new editfield("")
myform.ok = new button("OK")
repeat
  waitfor(myform.ok,"click")
until myform.mytxt.content <> ""

伪代码2

LET TEXT = ""
WHILE TEXT = "" DO
  TEXT = PROMPT("")
ENDWHILE

例子1

程序运行并立即弹出一个带有单个文本字段和一个OK按钮的表单。
用户单击OK按钮。
没发生什么事。
用户将“ hello world”粘贴到文本字段中，然后单击OK按钮。
程序终止。

例子2

调用该函数，并立即显示空白行和闪烁的光标。
用户按Enter。
光标向下移动一行。
用户按Enter。
光标向下移动一行。
用户按PPCGEnter
功能返回。

TI-BASIC，2个字节

:Prompt X

TI-BASIC会自动执行此操作。输入后，它将退出。

这是GIF：

观看enter按键历史记录中按键的计数。使用TI-SmartView CE和ezgif.com创建。

Python 3，18个字节

while''==input():0

在线尝试！

sed，4

/./q

等待具有1个或多个字符的输入行，然后退出。

在线尝试。但它在实时shell上效果更好：

sed '/./q'

JavaScript，37 22 17字节

while(!prompt());

while(!prompt());

说明

该while关键字开始while循环。在循环的情况下，!prompt()要求输入并检查是否输入。如果未给出，则执行循环主体（在我们的情况下为空），然后解释器返回到循环条件。一遍又一遍地进行相同的过程，直到用户输入为止。

Java，55个字节

void f()throws Exception{while(System.in.read()==10);}}

如果我没记错（自从我从事PPCG以来已经有一段时间了），我的程序就可以是一个函数。

这是系统特定的；它仅适用于行尾字符为单个换行符的系统。如果结束行的字符是代替回车，替换10用13。在Windows上，这是行不通的，因为Windows上的行尾是\r\n。

这利用了我可以直接从阅读的事实System.in。

HTML5，33 22个字节

<form><input required>

<form><input required>

说明

在required该属性<input>使浏览器通知用户“这个字段是必须的”消息-sort-的-，如果他们不输入值。然而，当他们输入一个值，该值被发送到的URL action的属性<form>（在本例中是当前文件本身，因为我们没有明确指定任何值）。

已在最新版本的Google Chrome（版本55.0）上进行了测试。可能在其他浏览器和版本中工作。

果冻，3个字节

ɠṆ¿

恐怕没有太多关于TIO的内容。

在线尝试！

怎么运行的

这是一个niladic程序，意味着它不接受任何输入参数。在这种情况下，隐式参数和返回值均为0。

¿（while）是从链接堆栈弹出两个链接的快捷方式：条件（Ṇ）和主体。

Ṇ是一个单原子：平逻辑非。如果先前的返回值是伪造的（此处为0或空字符串），则返回1并调用主体。

ɠ是一个尼拉德原子；它从STDIN读取原始行并返回结果。

一旦ɠ读取一个非空行，Ṇ返回0，我们打破循环了。

Pyth，3个字节

W!w

在线尝试！

翻译成Python：

while Pnot(input()):
 pass

脑干，26字节

+[>,----------[[-]<[-]>]<]

在线尝试！

Perl 5、8 + 1（-p或-n标志）字节

/./&&die

regex匹配除换行符以外的任何内容，然后从stdin接受输入并终止。

C，52字节，33字节，29字节

-19字节，感谢贾斯汀

-4个字节感谢Christoph

main(){while(getchar()==10);}

10等于'\ n'-以防万一。

Bash, 51 bytes (39 without "#!/bin/bash")

It's my first time participating in PPCG, so dont be to rude ;D

#!/bin/bash
read a
while [ -z "$a" ]
do
read a
done

Java, 128 126 bytes

2 bytes thanks to Kevin Cruijssen.

import java.util.*;class a{public static void main(String[]a){for(Scanner s=new Scanner(System.in);s.nextLine().isEmpty(););}}

Try it online!

C# (.NET Core), 66 bytes

class C{static void Main(){for(;System.Console.ReadLine()!="";);}}

Try it online!

-6 bytes thanks to raznagul.

QBasic 4.5, 15 bytes

INPUT a$:IF a$=""THEN RUN

Asks for input, then checks if any was given. If not, RUN restarts the program.

Ruby, 13 bytes

gets until/./

I wish gets took a Regexp argument.

R, 27 24 23 22 bytes

while(!sum(scan()^0))t

Takes input from stdin, and repeat as long as input is of length 0. Cut off some bytes due to Jarko Dubbeldam and MickyT. Replaced the {} with t to save another byte.

PHP, 18 bytes

while(!readline())

AWK, 8 11 bytes

NF{exit}

Wait for input. If the number of fields in input is more than 0, exit.

EDIT:

I've just realized that this doesn't work for input containing whitespace characters only. IFS needs to be set to empty string using -F "" command line option. Therefore +3 bytes.

Try it online!

SpecBAS - 34 bytes

1 DO : INPUT a$: LOOP UNTIL a$<>""

Just loops until non-empty string is entered.

Mathematica, 26 20 bytes

For[,Input[]==Null,]

Haskell, 19 17 bytes

f=do""<-getLine;f

Defines a function f that if it reads the empty line calls itself again. When reading a non-empty line an exception is raised and the recursion is stopped.

Edit: @Laikoni replaced the parameter with a pattern match and saved 2 bytes. Thanks!

Aceto, 9 5 4 bytes

read a value, negate it (!; implicitly casting to a boolean), and mirror horizontally if the value is truthy (|).

!
r|

Java, 66 64 60 bytes

int a(){return!System.console().readLine().isEmpty()?0:a();}

My first Java answer, would love some tips!

Braingolf, 8 bytes [non-competing]

1[{?:+|]

Non competing because {, which reads input from STDIN, was added to braingolf after this challenge's post date.

Explanation:

1         Pushes 1 to the stack
 [        Begins while loop
  {       Reads from STDIN, returns -1 if no input given
   ?      Checks if last item in stack is > 0
    :     Else
     +    Adds the last 2 items together, however there is only 1 item, so add it to itself
      |   Endif
       ]  End While, decrement first item in stack, or exit if first item is 0

Charcoal, 4 bytes

Ｗ¬Ｓω

Explanation

Ｗ      While
  ¬Ｓ   Logical not of string input
     ω  Print ""

05AB1E, 5 bytes

[IõÊ#

Explanation:

[     Start infinite loop
 I    One line of input
   Ê  Not equal to
  õ   Empty string
    # Break if true

Try it online!

PowerShell, 20 Bytes

for(;!(read-host)){}

runs a for loop,

read-host prompts for input

if read-host returns nothing it evals to false, so we invert that !(...) and use that as the loop end check.

much shorter than any do{$a=read-host}while($a-eq"") type solution involving variables.

Swift, 22 bytes

while readLine()==""{}

CJam, 5 bytes

{l!}g

Try it online! (TIO doesn't really show the proper behaviour)

Explanation

{      e# Do:
 l     e#  Read next line of input
  !    e#  Boolean negate (empty strings are falsy)
   }g  e# Pop the top of stack, if truthy, repeat.