SetDirectory[NotebookDirectory[]];
graphs=OpenRead["graph4c.g6"];
graph=Read[graphs,Word];
While[TrueQ[graph==  EndOfFile]==False,Print[graph];graph=Read[graphs,Word]]
(*While[graph ≠  EndOfFile,Print[graph];graph=Read[graphs,Word]]*)

Import["graph4c.g6"]

1. Hogy csináljak g6 kódolású stringből gráfot?2. A While parancs megfelelő ebben az esetben (EndOfFile-ig fut)?3. Hogyan tudom a While feltételét egyszerűbben megfogalmazni ("!="-vel miért nem fut le)?Nezegetem.