qq游戏中的围棋格式wgs格式到sgf通用格式的转换

目前因为没有安装vb，所以是在excel中弄的。打开excel,按Alt + F11进入vb编辑器，双击左边的thisworkbook，在右边的空白处粘贴下面的代码，改路径，然后F5,或者一直F8，运行完成（提示success to transform）。文件保存在D:\23Out.sgf。在xp,office2003下成功运行。

代码如下：

'实现qq围棋的wgs格式转为sgf通用格式可以被multigo3.5打开
'还存在一个问题：如果最后一手是黑下，那么将不转换最后一手，有空再改
'sgf的前后竟然有引号，不过也可以被打开，呵呵
Sub ReadWgs()
Dim fileName As String
Dim outputName As String
Dim allWgsContent() As Byte '用来读取文件的数组，每次读取前要重定义
Dim outputContent As String

fileName = "D:\test.wgs"   '被转换的wgs文件
outputName = "D:\23Out.sgf"   '生成的sgf文件
outputC

Open fileName For Binary As #2
Open outputName For Output As #1

ReDim allWgsContent(LOF(2) - 1) '重定义数组，为读取文件做准备
Get #2, , allWgsContent() 'allWgsContent(120)=23,总手数
For i = 122 To LOF(2) - 4 Step 4

       Dim bX As String '水平的x，向右为正，单位为4Deg black
       Dim bY As String '垂直的y,向下为正，单位为1Deg
       Dim wX As String 'white
       Dim wY As String
       Dim tempbwXY As String
   
       bX = Chr(Int(allWgsContent(i)) / 4 + 97)
       bY = Chr(Int(allWgsContent(i + 1)) + 97)
       wX = Chr(Int(allWgsContent(i + 2)) / 4 + 97)
       wY = Chr(Int(allWgsContent(i + 3)) + 97)
       tempbwXY = " ;B[" & bX & bY & "] ;W[" & wX & wY & "]"
       outputContent = outputContent & tempbwXY
   
Next i

outputContent = outputContent & ")"
Write #1, outputContent

Close #2
Close #1

MsgBox ("success to tranform")

End Sub