JLink로 Manipulate 및 ArrayList 빌드

Question

이 코드 를 Manipulate 안에 넣을 수 있는지 궁금합니다 . 나는 이와 같이 시도하고 메시지 상자에 결과를 얻었습니다.

그런 다음 PopMenu에서 다른 단어를 선택했을 때 다음과 같은 결과를 얻었습니다.

문제는 ...Print[...]지시 사항 이라고 생각 했기 때문에 이와 같이 arraylist를 작성하려고했지만 완전히 실패했습니다. 결과가 없습니다 ...

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]]]

어떻게해야하는지 정확히 모르겠습니다. 도움을 주시면 감사하겠습니다.

Answer 1

이과는 아무 상관이 없습니다 Manipulate또는 Print. 의 결과 Scanner[file, "issue"]를 보면 Null.

코드를보세요. Scanner함수는 다음과 같은 문으로 끝납니다.

If[! contiene, <do some stuff>]

에 대한 세 번째 인수가 없습니다 If. 그리고 파일에 포함 된 모든 단어를, contiene이다 True당신 때문에 평가하고 있습니다If[False, <code that is never reached]

이 시도:

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
    ]
]