Fordern Sie zur Laufzeit so lange eine Eingabezeile an, bis die Benutzereingabe erfolgt nicht mehr der Name einer vorhandenen Datei oder eines vorhandenen Verzeichnisses oder eines anderen Dateisystemelements im Verhältnis zum aktuellen Arbeitsverzeichnis ist. Geben Sie dann den zuletzt eingegebenen Dateinamen zurück bzw. drucken Sie ihn aus. Sie können davon ausgehen, dass alle Benutzereingaben gültige Dateinamen sind.

Pseudocode 1

myform = new form("GUI")
myform.mytxt = new editfield("")
myform.ok = new button("OK")
repeat
  waitfor(myform.ok,"click")
until not filesystem.exists(myform.mytxt.content)
return(myform.mytxt.content)

Pseudocode 2

LET TEXT = "."
WHILE HASFILE(TEXT) DO
  TEXT = PROMPT("")
ENDWHILE
RETURN TEXT

Beispiele für Benutzereingaben, die bei Aktivierung von TIO zu einer erneuten Aufforderung führen:

.
..
.env.tio
/
/bin/[
/lost+found

Beispiele für Benutzereingaben, die bei TIO zurückgegeben werden:

...
env.tio
../../bin/]
/lost/found

Batch, 37 Bytes

@set/ps=
@if exist %s% %0
@echo %s%

(Aus irgendeinem Grund CMD.EXEbeschädigt aktuelles Windows 10 den Titel, wenn es das ausführt %0.)

Mathematica, 33 28 Bytes

f:=Input[]/._?FileExistsQ:>f

Dies setzt die Notebook-Umgebung von Mathematica voraus, in der Eingaben des Benutzers abgefragt werden können Input[]. Die Benutzereingabe sollte ein tatsächliches String-Literal sein , also zB "ab/cd.ef"statt nurab/cd.ef . Der Vorteil ist, dass die Eingabe ein beliebiger Mathematica-Ausdruck sein kann, der die Eingabezeichenfolge berechnet.

Dies definiert ein Symbol, fdas bei der Auswertung die erforderliche Berechnung durchführt und letztendlich zur ersten nicht vorhandenen Benutzereingabe auswertet. Es handelt sich im Wesentlichen um eine Nullfunktion, bei der keine Einbeziehung erforderlich ist...[] sie aufzurufen.

Wir können auch eine Menge Bytes gegenüber einem herkömmlichen IfAusdruck sparen, indem wir den Operator für die Mustersubstitution verwenden /..

Perl 5 -ln , 12 10 Bytes

-2 Bytes dank @DomHastings

#!/usr/bin/perl -ln
-e||1/!say

Probieren Sie es online!

Bash, 29

read f
[ -e $f ]&&$0||echo $f

PowerShell 2 (bis 6), 35 Byte

while(Test-Path($x=Read-Host)){};$x

Read-Hostwartet auf Eingabe (wenn eine Zeichenfolge als Parameter angegeben wird, wird die Zeichenfolge als Eingabeaufforderung verwendet). Wenn die mitgelieferte Eingabe ein Dateiname (oder Ordnername) für eine ist , die vorhanden ist , Test-Pathkehrt $true, und die do-nothing - Block {}ausgeführt wird , und es erneut Aufforderungen zur Eingabe. Wenn der Test-PathWert zurückgegeben wird, $falseweil die Eingabe keine vorhandene Datei oder kein vorhandener Ordner ist, wird der Nichtbearbeitungsblock nicht ausgeführt, und der Eingabename wird gedruckt.

C (gcc), 62 bytes

main(){char b[99];while(scanf("%s",b)&&!access(b,0));puts(b);}

Try it online!

main(){
    char b[99]; // Declare buffer b
    while (scanf("%s",b)&&!access(b,0));    // Take one line of input, and test if file is accessible (exists)
    puts (b);   // If doesn't exist, loop ends and print file
}

Funky, 40 bytes

tryfor)io.open(s=io.read())catchprint(s)

In true funky style, this uses keywords jammed against eachother, unmatching brackets and implicit keywords. Cleaned up, this looks like:

try{
    while(true){
        s = io.read()
        io.open(s)
    }
}catch(e){
    print(s)
}

Breakdown

try                                     // Try statement, this one is expected to fail.
   for)                                 // for) is a for loop with no arguments, which is functionally equivilent to a while(true) loop, much like for(;;)
       io.open(                         // Try to open a file relative to the CWD. If this fails to find a file, it will throw an error and escape the try/catch
               s=io.read()              // Read a line from STDIN and store it as s, this will still pass it to the arguments of the call.
                          )
                           catch        // When io.open fails
                                print(s)// Print out the last entered line.

Haskell, 76 bytes

import System.Directory
f=do x<-getLine;b<-doesPathExist x;last$pure x:[f|b]

Try it online!

Returns IO x where x is the inputted name of the file that does not exist.

Ungolfed

import System.Directory

insist = do { file <- getLine;
              exists <- doesPathExist file;
              if exists then insist else pure file }

R, 66 51 bytes

while((s=readline())%in%list.files(a=T)){};print(s)

-15 bytes thanks to plannapus

Runs a potentially infinite loop, where on each iteration

1. A single line of user input is stored in the variable s
2. We check if the input is in the list of filenames for the working directory (the a=T option for list.files() must be used to pick up things like ..)
3. If s is in that list, we go to the next iteration; if not, we break the loop and print s.

Python 3, 55 bytes

import glob
s="."
while glob.glob(s):s=input()
print(s)

Try it online!

-4 bytes thanks to ManfP
-6 bytes thanks to Rick Rongen

C#, 101 bytes

()=>{var s="";try{for(;;System.IO.File.GetAttributes(s=System.Console.ReadLine()));}catch{}return s;}

For each of the 4 valid return values:

• Try it online! (returns '...')

• Try it online! (returns 'env.tio')

• Try it online! (returns '../..bin/])

• Try it online! (returns '/lost/found)

Ungolfed

() =>
{
    var s = "";
    try
    {
        for(;; System.IO.File.GetAttributes(s = System.Console.ReadLine()));
    }
    catch {}
    return s;
}

Explanation

relies on the fact that File.GetAttributes() throws an exception if file system object specified in its argument doesn't exist.

Powershell 3.0, 75 bytes

$x=1;while($x){$i=Read-Host;$x=Test-Path("$PSScriptRoot\$i")};Write-Host $i

First attempt; I'm sure there are a few optimizations I could make.

A slightly more readable form:

$x=1;                                                                       # Make sure we enter our while loop.
     while($x){                                                             # While we keep getting file names,                   
               $i=Read-Host;                                                # Get input from the user
                            $x=Test-Path("$PSScriptRoot\$i")};              # Combine our path with the user input, and see if it already exists.
                                                              Write-Host $i # Return the final (valid) file name.

Java 9, 87 Bytes

v->{String s;for(;new java.io.File(s=System.console().readLine()).exists(););return s;}

Ungolfed

Die JVM von TIO hat anscheinend kein SystemConsole , daher kann sie dort nicht getestet werden (siehe System.console()).

import java.util.function.*;
class Main {
  public static void main(String[] args) {
    Function<Void,String> f =


v->{
  String s;
  for(;new java.io.File(s=System.console().readLine()).exists(););
  return s;
}


;
    System.out.println(f.apply(null));
  }
}

JavaScript (Node.js) , 158 - 118 Byte

require('readline').createInterface({input:process.stdin}).on('line',s=>require('fs').existsSync(s)||--console.log(s))

Probieren Sie es online!

Dank an @ ConorO'Brien für die kürzere Version. Inline-Objekte anstelle der Verwendung von consts und der Verwendung der Fehler-Exit-Bedingung anstelle des expliziten Exits.

Sauber , 100 94 Bytes

import System.IO,System.File
Start w#(s,w)=evalIO getLine w
#(b,w)=fileExists s w
|b=Start w=s

Probieren Sie es online!

Version mit einem Ausdruck:

import System.IO,System.File
Start w=(\(s,v)=(\(b,w)|b=Start w=s)(fileExists s v))(evalIO getLine w)

Probieren Sie es online!

Perl 6, 39 Bytes

my$f=".";while $f.IO.e {$f=get};say $f;

Dies funktioniert in der REPL, aber in TIO scheint es nicht richtig zu funktionieren.

PHP, 43 Bytes

<?for(;file_exists($f=readline()););echo$f;

Als CLI ausführen. Ganz einfach zu verstehen.

Ruby , 40 39 37 Bytes

{}while File.exist? gets.chomp
$><<$_

Probieren Sie es online!

APL (Dyalog) , 17 Bytes

{⍞}⍣{~⎕NEXISTS⍺}⍬

Probieren Sie es online!

Kotlin , 67 Bytes

val f={var s="."
while(java.io.File(s).exists()){s=readLine()!!}
s}

Probieren Sie es online!

Attache , 35 Bytes

{While[FileExists[x:=Prompt[]],0]x}

Probieren Sie es online!

Alternativlösungen

35 Bytes: {If[FileExists[x:=Prompt[]],$[],x]} rekursive Funktion.

37 Bytes: {NestWhile[p:=Prompt,p[],FileExists]} iterative Funktion.

Min , 38 Bytes

"." :a (a exists?) ("" ask @a) while a

Lässt den zuletzt eingegebenen Dateinamen auf dem Stapel.

Erläuterung

"."         ; Put . on the stack. Every directory should contain this...
:a          ; Assign to a
(a exists?) ; A quot that checks if a exists in current directory
("" ask @a) ; Read line from stdin, assign to a
while       ; Do the second quote while the first leaves true on the stack
a           ; Leave a on the stack

SmileBASIC, 27 Bytes

INPUT S$EXEC!CHKFILE(S$)?S$