• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.1
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:2.2
软件大小:191M
更新时间:03-27

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[已解决] 多行输入框内容保存到文本 [复制链接]

1#
Dim 游戏账号
if Form1.账户密码.Text<>"" then
游戏账号=Form1.账户密码.Text
游戏账号 = Split(游戏账号, chr(13))
For i = 0 To UBound(游戏账号)
Call Lib.文件.替换指定行文本内容("C:\文件夹\账号.txt",游戏账号(i),i+1)
arr = Split(游戏账号(i), ",")
Form1.账户状态表.SetItemText i+1, 3, arr(0)
Form1.账户状态表.SetItemText i+1, 5, arr(2)
Form1.账户状态表.SetItemText i+1, 6, arr(3)
Next
Else
怎么文本里面就显示一行,别的都是空 的怎么回事啊。求高手解答。谢谢。。。

本主题由 超级版主 n15976906190 于 2018/10/11 0:06:44 执行 主题分类 操作
2#

回复 1楼lin1983110的帖子
  1. Var1=Split(Form1.InputBox1.Text,chr(13))
  2. For i = 0 To UBound(Var1)
  3. TracePrint Var1(i)
  4. Call Plugin.File.WriteFileEx("C:\Config.txt",Var1(i))
  5. Next
复制代码

收徒索引
----将满
个人QQ:1223116618
发新话题 回复该主题