精易论坛

标题: 单字符输出 [打印本页]

作者: 易语飞扬 时间: 2024-12-5 16:31
标题: 单字符输出
.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕
单字符输出 (“你好世界,国富民强！公平、公正、公开。空格”)

.子程序单字符输出
.参数内容, 文本型
.局部变量指针
.局部变量指针2
.局部变量长度

指针＝取变量数据地址 (内容)
.循环判断首 ()
指针2 ＝ CharNext (指针)
长度＝指针2 －指针
.如果 (长度＞ 0)
输出调试文本 (到文本 (指针到字节集 (指针, 长度)))
.否则
跳出循环 ()
.如果结束
指针＝指针2
.循环判断尾 (长度＞ 0)

.DLL命令 CharNext, 整数型, "user32.dll", "CharNextA"
.参数指针, 整数型, , 文本指针

作者: 小勇想学易语言 时间: 2024-12-5 17:33
666666666666666666666

作者: Channge 时间: 2024-12-5 20:28
怎么做到模块里，我进去输出为空了

作者: Channge 时间: 2024-12-5 20:28
.版本 2
.支持库 spec

.子程序昀离_单符号输出, 文本型, 公开
.参数内容, 文本型
.局部变量指针
.局部变量指针2
.局部变量长度

指针＝取变量数据地址 (内容)
.循环判断首 ()
指针2 ＝ CharNext (指针)
长度＝指针2 －指针
.如果 (长度＞ 0)
      ' 输出调试文本 (到文本 (指针到字节集 (指针, 长度)))
.否则
      跳出循环 ()
.如果结束
指针＝指针2
.循环判断尾 (长度＞ 0)
返回 (到文本 (指针到字节集 (指针, 长度)))

我想放到模块里  为啥输出空数据了

作者: year1970 时间: 2024-12-6 08:04
感谢分享

作者: kyo9766 时间: 2024-12-6 08:51
直接上代码好评啊，感谢分享

作者: bianyuan456 时间: 2024-12-6 09:31
已经顶贴，感谢您对论坛的支持！

作者: 老赵0912 时间: 2024-12-6 13:28
开源必顶

作者: 胖子葛格 时间: 2024-12-6 14:40
感谢大神分享~！

作者: please 时间: 2024-12-7 09:41
感谢分享，支持开源！！！

作者: qqmqqg 时间: 2024-12-9 08:38
66666666666666666666

作者: 皮皮君 时间: 2024-12-10 00:28
支持，YYDS~

作者: 易语飞扬 时间: 2024-12-10 08:33

Channge 发表于 2024-12-5 20:28
.版本 2
.支持库 spec

你调试时，单步跟踪指针变量值，看看是哪里出问题了，这个代码上没什么问题的。

欢迎光临精易论坛 (https://125.confly.eu.org/)