欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → vba中WritePrivateProfileString函数能存储的最大字符数问题

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有2651人关注过本帖树形打印复制链接

主题：vba中WritePrivateProfileString函数能存储的最大字符数问题
帅哥哟，离线，有人找我吗？
bage
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：46 积分：0 威望：0 精华：0 注册：2015/12/10 13:37:45 		vba中WritePrivateProfileString函数能存储的最大字符数问题  发帖心情 Post By：2016/1/22 11:06:21 [只看该作者]

今天测试发现，vba模块中，调用WritePrivateProfileString函数，存在最大字符数的限制。

在vba中，循环调用
sOrderIDIgnoreNew=sOrderIDIgnoreNew & "," & sOrderID
Call document.WritePrivateProfileString("OrderID", "OrderIDCol",sOrderIDIgnoreNew, sOrderIDFile)
当sOrderIDFile文件中的OrderIDCol的长度达到276后，再增加sOrderIDIgnoreNew长度保存时，就不能完全保存了。 只会更新最后几个字符。

我想问下，这个最大的长度能调整吗？
 回到顶部
帅哥哟，离线，有人找我吗？
bage
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：46 积分：0 威望：0 精华：0 注册：2015/12/10 13:37:45 		  发帖心情 Post By：2016/1/22 11:24:57 [只看该作者]

我贴下代码吧：

Sub test_bzj()
sOrderIDIgnoreNew="-53203475,-53203473,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203475,-53203471,12345678901234567890"
Call document.WritePrivateProfileString("OrderID", "OrderID",sOrderIDIgnoreNew, "C:\test.ini")
sOrderIDIgnoreNew=document.GetPrivateProfileString("OrderID", "OrderID","1", "C:\test.ini")
sOrderIDIgnoreNew=sOrderIDIgnoreNew & ",1111111"
Call document.WritePrivateProfileString("OrderID", "OrderID",sOrderIDIgnoreNew, "C:\test.ini")
End Sub

执行test_bzj后，你会发现，文件中的字符长度被截断了。

应该是GetPrivateProfileString这个会截断字符
 回到顶部
帅哥哟，离线，有人找我吗？
yukizzc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2016/1/22 12:10:33 [只看该作者]


 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.04785 秒, 5 次数据查询