Tworzenie Manipulate i ArrayList za pomocą JLink

Question

Zastanawiam się, czy możliwe jest umieszczenie tego kodu w pliku Manipulate. Próbowałem właśnie w ten sposób i otrzymałem wyniki w oknie komunikatu:

Następnie, kiedy wybrałem inne słowo z PopMenu, otrzymałem to:

Myślałem, że problemem były ...Print[...]instrukcje, więc próbowałem zbudować taką listę aranżacyjną, ale całkowicie się nie udało, nie ma rezultatu ...

Needs["JLink`"]

Scanner[archivo_String, palabra_String] :=
 JavaBlock@
  Module[{entrada, linea, numlinea, contiene, ruta, lista, renglon, 
    nop}, numlinea = 1; linea = ""; contiene = False;
   InstallJava[];
   ruta = JavaNew["java.io.File", archivo];
   entrada = JavaNew["java.util.Scanner", ruta];
   lista = JavaNew["java.util.ArrayList"];
   (*Print["File: " <> ruta@getName[]];
   Print["Word:" <> palabra];*)
   While[entrada@hasNext[], linea = entrada@nextLine[]; 
    If[JavaNew["java.lang.String", linea]@
      contains[MakeJavaObject@palabra], 
     renglon = 
      JavaNew["java.lang.String", 
       "Line " <> ToString[numlinea ] <> ": " <> ToString[linea]];
     contiene = True;
     lista@add[renglon];
     JavaObjectToExpression[lista]];
    numlinea++];
   If[! contiene, 
    nop = JavaNew["java.lang.String", 
      ToString[palabra] <> " no se ha encontrado"];
    lista@add[nop];
    JavaObjectToExpression[lista]]]

Nie wiem dokładnie, jak to zrobić, byłbym wdzięczny za pomoc.

Answer 1

To nie ma nic wspólnego z Manipulatelub Print. Spójrz na wynik, Scanner[file, "issue"]a zobaczysz, że tak jest Null.

Spójrz na swój kod, Scannerfunkcja kończy się taką instrukcją

If[! contiene, <do some stuff>]

Nie masz trzeciego argumentu dla If. A dla każdego słowa zawartego w pliku contienejest Truei tak oceniaszIf[False, <code that is never reached]

Spróbuj tego:

Scanner[archivo_String, palabra_String] := JavaBlock[
    Module[
        {entrada, linea, numlinea, contiene, ruta, lista, renglon, nop},
        numlinea = 1;
        linea = "";
        contiene = False;
        InstallJava[];
        ruta = JavaNew["java.io.File", archivo];
        entrada = JavaNew["java.util.Scanner", ruta];
        lista = JavaNew @ "java.util.ArrayList";
        While[entrada @ hasNext[],
            linea = MakeJavaObject @ entrada @ nextLine[];
            If[linea @ contains @ palabra,
                renglon = MakeJavaObject @ StringJoin["Line ", ToString @ numlinea, ": ", JavaObjectToExpression @ linea];
                contiene = True;
                lista @ add @ renglon;
                JavaObjectToExpression @ lista
            ];
            ++numlinea
        ];
        If[!contiene,
            lista @ add @ MakeJavaObject @ StringJoin[palabra, " no se ha encontrado"]
        ];
        Column @ JavaObjectToExpression @ lista
    ]
]