主题：有没有办法得到 {"函数名","代码"} 这样的数据呢？

谢谢  {}内解决了

Dim s As String
For Each r As Col In Tables("内部函数").cols
    output.show(r.name)
    s = s & """" & r.name & ""","
Next
s= s.TrimEnd(",")
s="{" & s & "}"
output.show(s)

Dim Cols1() As String =s 
Dim s1 As String
For Each dr As DataRow In DataTables("内部函数").DataRows
    For i As Integer = 0 To Cols1.Length -1
        If s1 > "" Then s1 = s1  & "|"
        If dr.IsNull(Cols1(i)) = False Then
            s1 =  s1  & dr(Cols1(i))
        End If
    Next
    s1 = s1.TrimStart("|")
    FileSys.WriteAllText("d:\JobPosition.txt", s1 & vbcrlf , True, Encoding.Default)
Next

运行提示：

老师：按照你的提示现在修改如下：红色部分代码怎么操作呢？

‘定义链接字符输入框

Dim cm3 As WinForm.ComboBox = e.Form.Controls("ComboBox3")

Dim s2 As String

'写入空置到文本
FileSys.WriteAllText("d:\JobPosition.txt", "" & vbcrlf , True, Encoding.Default)
For Each r As Col In Tables("内部函数").cols
    s2 =  s2  & r.name & cm3.text
Next
s2 = s2.Trim(cm3.text)
output.Show(s2)

'写入遍历内部函数表所有列名的值到文本  假定cm3.text= | 格式为： 第一列|第二列
FileSys.WriteAllText("d:\JobPosition.txt", s2 & vbcrlf , True, Encoding.Default)

’定义数组，便于根据数组来遍历内部函数所有行，获取数据，并写入文本  假定cm3.text= |

‘格式为：

’张三|5227

‘里斯|5228

Dim Cols1() As String ={"函数名","代码"}
Dim s1 As String
For Each dr As DataRow In DataTables("内部函数").DataRows
    s1 = ""
    For i As Integer = 0 To DataTables("内部函数").DataCols.Count -1
        If s1 > "" Then s1 = s1  & cm3.text
        If dr.IsNull(Cols1(i)) = False Then
            s1 =  s1  & dr(Cols1(i))
        End If
    Next
    s1 = s1.TrimStart(cm3.text)
    FileSys.WriteAllText("d:\JobPosition.txt", s1 & vbcrlf , True, Encoding.Default)
Next
MessageBox.Show("操作完毕","温馨提示")

谢谢！

经运行，大部分表数据都按照正常格式导出为文本了

但是个别表列数据出现如下？，经查表中列字符没有空格，一般情况下产生这个？的原因是啥呢？

此主题相关图片如下：11.png

老师 参照运行问题依旧

Dim cm3 As WinForm.ComboBox = e.Form.Controls("ComboBox3")
Dim tb As WinForm.Table = e.Form.Controls("Table1")
Dim s2 As String
FileSys.WriteAllText("d:\"& tb.Table.DataTable.Name & ".txt","" & vbcrlf , False, Encoding.Default)
For Each r As Col In Tb.Table.cols
    s2 =  s2  & r.name & cm3.text
Next
s2 = s2.Trim(cm3.text)
output.Show(s2)
FileSys.WriteAllText("d:\"& tb.Table.DataTable.Name & ".txt",s2 & vbcrlf , False, Encoding.Default)

Dim Cols1() As String =s2.split(cm3.text)
Dim s1 As String
For Each dr As DataRow In Tb.Table.DataTable.DataRows
    s1 = ""
    For i As Integer = 0 To Cols1.length-1
        If s1 > "" Then s1 = s1  & cm3.text
        If dr.IsNull(Cols1(i)) = False Then
            Dim bb As String =dr(Cols1(i))
            s1 =  s1  & bb.Replace(chrw(8203),"")
        End If
    Next
    s1 = s1.TrimStart(cm3.text)
   
    FileSys.WriteAllText("d:\"& tb.Table.DataTable.Name & ".txt",s1 & vbcrlf , True, Encoding.Default)
Next
MessageBox.Show("操作完毕","温馨提示")