W czasie wykonywania monituj o wiersz danych wejściowych, dopóki użytkownik nie wprowadzi czegoś (innego niż pusta nowa linia), tj. Nie tylko naciska Enterani OK. Wynik lub wynik nie jest wymagany ani zabroniony.

Pseudokod 1

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

Pseudokod 2

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

Przykład 1

Program działa i natychmiast wyskakuje formularz z pojedynczym polem tekstowym i OKprzyciskiem.
Użytkownik klika OKprzycisk.
Nic się nie dzieje.
Użytkownik wkleja „hello world” w pole tekstowe i klika przyciskOK przycisk.
Program kończy się.

Przykład 2

Funkcja jest wywoływana i natychmiast wyświetla pustą linię i migający kursor.
Użytkownik naciska Enter.
Kursor przesuwa się o jedną linię w dół.
Użytkownik naciska Enter.
Kursor przesuwa się o jedną linię w dół.
Użytkownik naciska PPCGEnter
Funkcja zwraca.

TI-BASIC, 2 bajty

:Prompt X

TI-BASIC robi to automatycznie. Po podaniu danych zostanie zakończone.

Oto GIF:

Obserwuj liczbę enternaciśnięć klawisza w historii naciśnięć klawiszy. Utworzono za pomocą TI-SmartView CE i ezgif.com .

Python 3 , 18 bajtów

while''==input():0

Wypróbuj online!

sed, 4

/./q

Czeka na linię wejściową zawierającą 1 lub więcej znaków, a następnie kończy działanie.

Wypróbuj online . Ale działa lepiej w przypadku powłoki na żywo:

sed '/./q'

JavaScript, 37 22 17 bajtów

while(!prompt());

while(!prompt());

Wyjaśnienie

Słowo whilekluczowe uruchamia whilepętlę. W stanie pętli !prompt()pyta o dane wejściowe i sprawdza, czy są one podane, czy nie. Jeśli nie zostanie podany, ciało pętli zostanie wykonane, które w naszym przypadku jest puste, wówczas interpreter wraca do stanu pętli. Ten sam proces odbywa się w kółko, dopóki użytkownik nie poda danych wejściowych.

Java, 55 bajtów

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

Jeśli dobrze pamiętam (minęło trochę czasu, odkąd jestem aktywny na PPCG), mój program może być tylko funkcją.

Jest to specyficzne dla systemu; działa tylko w systemach, w których znak końca wiersza jest pojedynczą nową linią. Jeśli znak end-of-line jest raczej powrót karetki, wymienić 10się 13. W systemie Windows to nie działa, ponieważ w systemie Windows jest to koniec linii \r\n.

Wykorzystuje to fakt, że mogę czytać bezpośrednio z System.in.

HTML5, 33 22 bajtów

<form><input required>

<form><input required>

Wyjaśnienie

requiredAtrybut na<input> powoduje, że przeglądarka informuje użytkownika „To pole jest wymagane” -sort depeszy, jeżeli nie wprowadzić wartość. Jednak po wprowadzeniu wartości wartość jest wysyłana na adres URL actionatrybutu <form>(którym w naszym przypadku jest sam plik bieżący, ponieważ nie podaliśmy żadnej wartości jawnie).

Zostało to przetestowane na najnowszej wersji Google Chrome (wersja 55.0). Może działać w innych przeglądarkach i wersjach.

Galaretka , 3 bajty

ɠṆ¿

Obawiam się, że nie ma wiele do obejrzenia na TIO.

Wypróbuj online!

Jak to działa

This is a niladic program, meaning that it takes no input arguments. The implicit argument and return value are both 0 in this case.

¿ (while) is a quick that pops two links from the link stack: a condition (Ṇ) and a body.

Ṇ is a monadic atom: flat logical NOT. If the previous return value is falsy (here, 0 or an empty string), it returns 1 and the body is called.

ɠ is a niladic atom; it reads a raw line from STDIN and returns the result.

Once ɠ reads a non-empty line, Ṇ returns 0 and we break out of the loop.

Pyth, 3 bytes

W!w

Try it online!

Translated to Python:

while Pnot(input()):
 pass

brainfuck, 26 bytes

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

Try it online!

Perl 5, 8+1 (-p or -n flag) bytes

/./&&die

Takes input from stdin and dies as soon as the regex matches anything except a newline.

C, 52 bytes, 33 bytes, 29 bytes

-19 bytes thanks to Justin

-4 bytes thanks to Christoph

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

10 is equal to '\n' - In case this isn't obvious.

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.