如何将.g6文件中的图以矩阵形式导出为txt文件

Question

源文件是.g6文件，是一种图形压缩格式，我想通过mathematica，将源文件中所有图形转换为矩阵并导出TXT文件中，说明：图数量很庞大，有十几万个图，提前谢谢各位朋友的解答

将源文件中所有图形转换为矩阵并导出TXT文件中，说明：图数量很庞大，有十几万个图，

Comments

我去，好长的标题。
这里你说的矩阵，我理解为图的邻接矩阵。
你是想用一个txt文件存储所有的矩阵数据呢，还是每个矩阵存为一个txt文件呢？

---

是图的邻接矩阵，想用一个TXT文件存储所有的邻接矩阵数据，谢谢您的解答

Answer 1

你试试下面的代码，应该可以；

导出的TXT文件中的矩阵之间使用空行隔开，如果有错误再交流：

又修改了一下，添加了测试数据。

(*生成测试文件*)
Export["D:/test.g6", {KnightTourGraph[4, 4], KnightTourGraph[3, 3], 
KnightTourGraph[2, 2], KnightTourGraph[1, 1]}]

(*==============================*)
(*输入地址：实际使用时，从这里开始*)
pathGraph6 = "D:/test.g6";(*你的Graph6文件路径*)
pathSaveText = "D:/your-txt-file.txt";(*你要保存的Text文件路径*)

(*显示进程*)
filePosition = 0;
fileSize = FileByteCount[pathGraph6];
Dynamic[Column[{Row[{filePosition, "/", fileSize}], 
ProgressIndicator[filePosition, {0, fileSize}]}]]

(*以数据流方式读写文件*)
sr = OpenRead[pathGraph6];
sw = OpenWrite[pathSaveText];

(*特殊处理第1行数据*)
g6String = StringReplace[ReadLine[sr], ">>graph6<<" -> ""];
matrixString = 
ExportString[
Normal[AdjacencyMatrix[ImportString[g6String, "Graph6"]]], 
"Table"] <> "\n\n";
WriteString[sw, matrixString];

(*处理余下的数据*)
While[(g6String = ReadLine[sr]) =!= EndOfFile,
filePosition = StreamPosition[sr];
matrixString = 
ExportString[
Normal[AdjacencyMatrix[ImportString[g6String, "Graph6"]]], 
"Table"] <> "\n\n";
WriteString[sw, matrixString];
]
filePosition = fileSize;
Close /@ {sr, sw};

 

Comments

好的，非常感谢您的解答

---

修改了一个函数，你用新的代码试

---

In[1]:= (*==============================*)
(*输入地址：实际使用时，从这里开始*)pathGraph6 = \
"C:\\Users\\Administrator\\Desktop\\GenerateGraph\\点数为6\\6_6.g6";\
(*你的Graph6文件路径*)pathSaveText = \
"C:\\Users\\Administrator\\Desktop\\/your-txt-file.txt";\
(*你要保存的Text文件路径*)(*显示进程*)
filePosition = 0;
fileSize = FileByteCount[pathGraph6];
Dynamic[Column[{Row[{filePosition, "/", fileSize}],
   ProgressIndicator[filePosition, {0, fileSize}]}]]

(*以数据流方式读写文件*)
sr = OpenRead[pathGraph6];
sw = OpenWrite[pathSaveText];

(*特殊处理第1行数据*)
g6String = StringReplace[ReadLine[sr], ">>graph6<<" -> ""];
matrixString =
  ExportString[
    Normal[AdjacencyMatrix[ImportString[g6String, "Graph6"]]],
    "Table"] <> "\n\n";
WriteString[sw, matrixString];

(*处理余下的数据*)
While[(g6String = ReadLine[sr]) =!= EndOfFile,
 filePosition = StreamPosition[sr];
 matrixString =
  ExportString[
    Normal[AdjacencyMatrix[ImportString[g6String, "Graph6"]]],
    "Table"] <> "\n\n";
 WriteString[sw, matrixString];]
filePosition = fileSize;
Close /@ {sr, sw};

Out[4]= \!\(
DynamicBox[ToBoxes[
Column[{
Row[{$CellContext`filePosition, "/", $CellContext`fileSize}],
ProgressIndicator[$CellContext`filePosition, {
       0, $CellContext`fileSize}]}], StandardForm],
ImageSizeCache->{200., {13., 18.}}]\)

\:6B63\:5728\:8BA1\:7B97In[1]:= StringReplace::strse: StringReplace[ReadLine[InputStream[C:\Users\Administrator\Desktop\GenerateGraph\点数为6\6_6.g6,72]],>>graph6<<->] 的位置 1 处应该是字符串或者由字符串组成的列表. >>

\:6B63\:5728\:8BA1\:7B97In[1]:= ImportString::string: 第一个参数 StringReplace[ReadLine[InputStream[C:\Users\Administrator\Desktop\GenerateGraph\点数为6\6_6.g6,72]],>>graph6<<->] 不是一个字符串. >>

\:6B63\:5728\:8BA1\:7B97In[1]:= AdjacencyMatrix::graph: 在 AdjacencyMatrix[ImportString[StringReplace[ReadLine[InputStream[C:\Users\Administrator\Desktop\GenerateGraph\点数为6\6_6.g6,72]],>>graph6<<->],Graph6]] 中 中位置 1 处应该是一个图对象. >>

\:6B63\:5728\:8BA1\:7B97In[1]:= ImportString::string: 第一个参数 ReadLine[InputStream[C:\Users\Administrator\Desktop\GenerateGraph\点数为6\6_6.g6,72]] 不是一个字符串. >>

\:6B63\:5728\:8BA1\:7B97In[1]:= AdjacencyMatrix::graph: 在 AdjacencyMatrix[ImportString[ReadLine[InputStream[C:\Users\Administrator\Desktop\GenerateGraph\点数为6\6_6.g6,72]],Graph6]] 中 中位置 1 处应该是一个图对象. >>

\:6B63\:5728\:8BA1\:7B97In[1]:= ImportString::string: 第一个参数 ReadLine[InputStream[C:\Users\Administrator\Desktop\GenerateGraph\点数为6\6_6.g6,72]] 不是一个字符串. >>

\:6B63\:5728\:8BA1\:7B97In[1]:= AdjacencyMatrix::graph: 在 AdjacencyMatrix[ImportString[ReadLine[InputStream[C:\Users\Administrator\Desktop\GenerateGraph\点数为6\6_6.g6,72]],Graph6]] 中 中位置 1 处应该是一个图对象. >>

\:6B63\:5728\:8BA1\:7B97In[1]:= ImportString::string: 第一个参数 ReadLine[InputStream[C:\Users\Administrator\Desktop\GenerateGraph\点数为6\6_6.g6,72]] 不是一个字符串. >>

\:6B63\:5728\:8BA1\:7B97In[1]:= General::stop: 在本次计算中，ImportString::string 的进一步输出将被抑制. >>

\:6B63\:5728\:8BA1\:7B97In[1]:= AdjacencyMatrix::graph: 在 AdjacencyMatrix[ImportString[ReadLine[InputStream[C:\Users\Administrator\Desktop\GenerateGraph\点数为6\6_6.g6,72]],Graph6]] 中 中位置 1 处应该是一个图对象. >>

\:6B63\:5728\:8BA1\:7B97In[1]:= General::stop: 在本次计算中，AdjacencyMatrix::graph 的进一步输出将被抑制. >>

---

您看一下，麻烦您了，最近一直没办法处理这批量的数据，谢谢您了

---

你先别用自己的数据，直接使用上面的代码测试一下，看看是否能通过。

---

StringReplace::strse: StringReplace[ReadLine[InputStream[D:/test.g6,89]],>>graph6<<->] 的位置 1 处应该是字符串或者由字符串组成的列表. >>

ImportString::string: 第一个参数 StringReplace[ReadLine[InputStream[D:/test.g6,89]],>>graph6<<->] 不是一个字符串. >>

AdjacencyMatrix::graph: 在 AdjacencyMatrix[ImportString[StringReplace[ReadLine[InputStream[D:/test.g6,89]],>>graph6<<->],Graph6]] 中 中位置 1 处应该是一个图对象. >>

ImportString::string: 第一个参数 ReadLine[InputStream[D:/test.g6,89]] 不是一个字符串. >>

AdjacencyMatrix::graph: 在 AdjacencyMatrix[ImportString[ReadLine[InputStream[D:/test.g6,89]],Graph6]] 中 中位置 1 处应该是一个图对象. >>

ImportString::string: 第一个参数 ReadLine[InputStream[D:/test.g6,89]] 不是一个字符串. >>

AdjacencyMatrix::graph: 在 AdjacencyMatrix[ImportString[ReadLine[InputStream[D:/test.g6,89]],Graph6]] 中 中位置 1 处应该是一个图对象. >>

ImportString::string: 第一个参数 ReadLine[InputStream[D:/test.g6,89]] 不是一个字符串. >>

General::stop: 在本次计算中，ImportString::string 的进一步输出将被抑制. >>

AdjacencyMatrix::graph: 在 AdjacencyMatrix[ImportString[ReadLine[InputStream[D:/test.g6,89]],Graph6]] 中 中位置 1 处应该是一个图对象. >>

General::stop: 在本次计算中，AdjacencyMatrix::graph 的进一步输出将被抑制. >>

---

刚试了，还是不行

---

那不是我代码的问题，那段代码我试过了没有问题，可能是你软件版本比较低吧。我用的是Mathematica 11.1.1。你用的是什么版本？

---

我用的9.0，应该是低了，谢谢解答，祝您愉快，我升级版本试试