- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]两个文本文件有何不同? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127412)
-- 发布时间：2018/11/13 16:02:00
-- [求助]两个文本文件有何不同?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:中行.txt |
一个是用中国银行批量文件制作工具2.0生成的文本文件:"中行"
另一个是用foxtable生成的文本文件:"fox"
两个文件格式看起来一模一样的.
但"中行"文件能通过网上银行上传,
而"fox"却提示:"文件要以OBSS开头",无法上传.
现上传两个文件,请解疑惑.
-- 发布时间：2018/11/13 16:19:00
--
试试另存为
此主题相关图片如下：qq截图20181113161821.png
-- 发布时间：2018/11/13 16:27:00
--
已经能够上传了,谢谢甜老师.
请问代码如何修改?
这是原来代码:
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "文本文件|*.txt" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim s,ss,sss As String
Dim m,n As Double
Dim dt As Table = Tables("工资查询_Table1")
dt.Filter = "开户行 = \'中行\'"
For i As Integer = 0 To dt.Rows.Count - 1
Dim dr As Row = dt.Rows(i)
Dim dr1 As DataRow
dr1 = DataTables("员工信息").Find("[姓名] = \'" & dr("姓名") & "\'")
Dim ds As String = Format(dr("日期"),"yyyyMMdd")
s = "|||3831583211111|" & dr1("账号") & "||||" & dr("姓名") & "|||" & dr("实发工资") & "|3831583211111|" & ds & "|工资|" & "0|||1|||"
ss = ss & vbcrlf & s
m = m + 1
n = n + dr("实发工资")
Next
ss = ss.TrimStart(vbcrlf)
sss = "OBSS|2|" & m & "|" & n & "|" & vbcrlf & ss & vbcrlf & "OBSSEND"
FileSys.WriteAllText(dlg.FileName,sss, False)
End If
-- 发布时间：2018/11/13 16:33:00
--
FileSys.WriteAllText(dlg.FileName,sss, False)
改成
FileSys.WriteAllText(dlg.FileName,sss, False, Encoding.Default)
-- 发布时间：2018/11/13 16:46:00
--
没问题了,能够一样上传了,用foxtable生成一个文本比2.0的工具要快好多.多谢甜老师.