主题：[求助]公式怎么写

1.导出的文件成 "0|002164|12|08??12???+|0.000"  没有显示出原来的,0|002164|12|08月12日Ⅰ+|0.000   2.能去掉外面的双引号?
此主题相关图片如下：snap1.jpg

 

 

此主题相关图片如下：snap2.jpg

老师导出的文件每行的双引号需去除掉

老师我后面这文件怎么不会用呢?我放要股piao这个表里了,麻烦老师给改一下,谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:投资.table

 

If filesys.FileExists("e:\投资\extern_user.txt") Then filesys.DeleteFile("e:\投资\extern_user.txt",2,2) End If Dim ex As New Exporter ex.SourceTableName = "主题" '指定导出表 ex.FilePath = "e:\投资\" '指定目标文件路径 ex.Format = "Delimited" '导出格式为符号分割的文本文件 ex.NewTableName = "extern_user" '指定文件名,注意无须扩展名 ex.Fields = "字符串" ex.Export() '开始导出

 

 

这个已经可以了,就是能去掉"   ",就成功了.我是不知怎么去改.导出的文件去"

老师这个文件可以用,但还是u-8格式,我改加成,FileSys.WriteAllText("e:\投资\extern_user.txt",str, False, Encoding.ASCII) 还是乱码,帮我再改改

Dim str As String = "
For Each dr As DataRow In DataTables("主题").DataRows
str &= dr("字符串") & vbcrlf
Next
FileSys.WriteAllText("e:\投资\extern_user.txt",str, False)

从软件说明看设计时就用U-8格式,我现在用记事本打开,再另存ASCII就不乱码,老师没有其他好办法了吗? 这个是用在通达信股piao软件上的外挂

 

老师按扭导出 能直接将表属性公式和导出两个公式合并成一个公式吗?由代码直接生成,目前发现字符串列是个过度列,可以省略这列,该如何改?

 

If e.DataCol.Name = "代码" Then
    If e.NewValue = Nothing Then
        e.DataRow("字符串") = Nothing
    Else
        Dim str As String = ""
        If e.NewValue.startswith("6") Then
            str &= "1|"
        Else
            str &= "0|"
        End If
        str &= e.NewValue & "|" & "12|"&  Format(Date.Today, "MM月dd日Ⅰ+") & "|0.000"
        e.DataRow("字符串") = str
         If e.DataTable.Find("代码 = '" & e.NewValue & "' and id <> '" & e.DataRow("ID") & "'") IsNot Nothing Then
            e.DataRow("关注") = e.NewValue
        Else
            e.DataRow("关注") = Nothing
        End If
    End If
End If

Dim str As String = ""
For Each dr As DataRow In DataTables("主题").DataRows
    str &= dr("字符串") & vbcrlf
Next
FileSys.WriteAllText("e:\投资\extern_user.txt",str, False, Encoding.Default)

 

添加代码遇到前面有的将日期串联起来,如同说明一样的操作,能实现吗?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:投资.table

老师这个不能用,表属性没反应,按钮也不能用,怎么操作?你可能没明白我的想法

我的想法是将前面的改进一下   你修改字符串，就自动变了啊 这个实现了,现在是重的多了以后,能自动加到排在最前面的一行中,因上市股有3000个数据,我不知这个能实现吗?