我是个VB菜鸟
请高手帮忙看下下面代码哪里错了 给点意见谢谢啦！_百度知道
我是个VB菜鸟
请高手帮忙看下下面代码哪里错了 给点意见谢谢啦！
Private Sub Command1_Click()
Text1.Text = &&
PrintEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
Static x As Integer
Dim str As String
If str = &{& Then
If str = &}& Then x = x - 1
If KeyAscii = 13 Then
If x = 0 Then
Print &左右大括号配对&
If x & 0 Then
Print &左大括号多&; &个&
Print &qu缉穿光费叱渡癸杀含辑右大括号多&; &个&
可以运行 但是总感觉有问题
提问者采纳
Private Sub Command1_Click()Text1.Text = &&Form1.ClsEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
Static x As Integer
Dim str1 As String
If KeyAscii = 13 Then
For i = 1 To Len(Text1.Text)
str2 = Mid(Text1.Text, i, 1)
If str2 = &{& Then
If str2 = &}& Then x = x - 1
If x = 0 Then
Print &左右大括号配对&
If x & 0 Then
Print &左大括号多&; &个&缉穿光费叱渡癸杀含辑
Print &右大括号多&; &个&
End Ifx = 0 '把x值变为0,否则在次运算时候接上回的结果,运算不准End Sub
提问者评价
高手啊！！！谢谢了
其他类似问题
按默认排序
其他2条回答
Dim str As String这个STR也能做变量的么?记得不能的吧,要么我记错了,我也是很菜的
}怎么来的啊
总的有个变量去接受那keyascii的值才能判断是{还是}
请高手帮忙的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 2508|回复: 5
阅读权限6UID455525函数0 关最后登录经验964 点在线时间77 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币332 个积分964精华0帖子日志注册时间
小学3年级, 积分 964, 距离下一级还需 236 积分
金币332 个积分964帖子
想做个提取网页中某个位置的文字到表里面，提取网页的内容格式是一样的，位置也是固定的，哪位老师帮忙看下吧，谢谢了，祝你工作顺利！
15:16 上传
点击文件名下载附件
3.62 KB, 下载次数: 18
阅读权限3UID487756函数0 关最后登录经验266 点在线时间41 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币113 个积分277精华0帖子日志注册时间
幼儿园大班, 积分 277, 距离下一级还需 23 积分
金币113 个积分277帖子
这个貌似比较难，呵呵，不会，等高手来解决了！
阅读权限25UID84017函数0 关最后登录经验56084 点在线时间2186 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6932 个积分56097精华0帖子日志注册时间
大学教授, 积分 56097, 距离下一级还需 6903 积分
金币6932 个积分56097帖子
给你一个动画，后处理应该比较简单啦。
19:13 上传
学习、交流共同提高
阅读权限6UID455525函数0 关最后登录经验964 点在线时间77 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币332 个积分964精华0帖子日志注册时间
小学3年级, 积分 964, 距离下一级还需 236 积分
金币332 个积分964帖子
但是你那样导入到是整个一块，我需要是里面某几个 文字内容，能不能通过 网页里的源代码呢，用VBA调用网页里面的源代码，然后找到所需要的内容，
阅读权限25UID84017函数0 关最后登录经验56084 点在线时间2186 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6932 个积分56097精华0帖子日志注册时间
大学教授, 积分 56097, 距离下一级还需 6903 积分
金币6932 个积分56097帖子
本帖最后由 zjdh 于
08:52 编辑
这是放在辅助页中，可通过宏添加需要的文字到你的表中。
代码中提取要找特征字段，看以下一段代码，你就知道难度了：
08:49 上传
找人民网可用网址作特征字段，但你不可能用于这么简单的提取。
学习、交流共同提高
阅读权限25UID84017函数0 关最后登录经验56084 点在线时间2186 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6932 个积分56097精华0帖子日志注册时间
大学教授, 积分 56097, 距离下一级还需 6903 积分
金币6932 个积分56097帖子
看我的帖子：
学习、交流共同提高
最佳答案累计大于500
Powered by"税务"问题分类
"会计"问题分类
"财税产品"问题分类
热点问题：
(交大龙山)个税代扣代缴申报系统
提问者：回答数：0有人关注提问时间：该问题已结束
我是个税代扣代缴申报系统的试点企业,但是贵局给我的接收服务器设置没办法通过测试,接收地址是http://218.5.2.50接收端口是:7888,这个数据是不是错误码的,还是有其他原因.下载扣缴义务人的信息的时候也显示错误代码1003008.请帮忙回答谢谢了.
我来说两句：
（看不清，点击图片刷新验证码）
最多输入10000个字符
回答者：[等级：董事长]回答时间：
&&&&&&&&&&&&&&&&福建省地方税务局#####分页#####&您好：&&&&&非常感谢您对此问题的及时反馈！经查实，此种情况是由于短暂的网络故障引起的。如出现类似问题，首先请您确认您的接受服务器地址（http://218.5.2.50）和端口（7888）是否正确，在此前提下，可联系企业信息人员确认本地网络是否畅通；是否使用代理上网，如使用代理上网，请在个人所得税代扣代缴系统中填写完成您的代理服务器相关设置。如果以上问题均确认无误，还是不能正常下载扣缴义务人基础信息，请您联系税管员或前往税局大厅使用介质方式获取扣缴义务人基础信息。
<span id="dings人赞同
相关内容：
等待您来回答
一个自拍杆可以被拆成操作杆、把手、底座、夹钳几个部分。 伸缩……请帮忙解释一下PHP代码的意思 谢谢_百度知道
请帮忙解释一下PHP代码的意思 谢谢
&#39;JIEQI_DB_PREFIX&#39;);@define(&#39;@define(&#39;JIEQI_IS_OPEN&#39,&#39,&#39;&#39;;;@define(&#39;&#39;@define(&#39;@define(&#39;;),&#39;;);&#39;@define(&#39;;);@define(&#39;&#39;JIEQI_MAIN_SERVER&#39;);&#39;@define(&#39;;&#39;&#39;&#39;JIEQI_DB_NAME&#39;;);@define(&#39;);@define(&#39;JIEQI_DB_TYPE&#39;),&#39;JIEQI_CONTACT_EMAIL&#39;@define(&#39,&#39;@define(&#39,&#39;,&#39,&#39;JIEQI_URL&#39;;JIEQI_SITE_NAME&#39;@define(&#39;;);JIEQI_META_KEYWORDS&#39,&#39;JIEQI_BANNER&#39,&#39;JIEQI_DB_CHARSET&#39;JIEQI_DB_PCONNECT&#39;0&#39;&#39;;&#39;;);&#39;@define(&#39;;);JIEQI_LICENSE_KEY&#39;JIEQI_DB_USER&#39;);),&#39;),&#39;;JIEQI_DB_PASS&#39;;gbk&#39;JIEQI_META_DESCRIPTION&#39;@define(&#39;&#39,&#39,&#39;);1&#39;&#39;;@define(&#39;mysql&#39;;@define(&#39;JIEQI_DB_HOST&#39;),&#39;);@define(&#39,&#39,&#39@define(&#39,&#39;JIEQI_META_COPYRIGHT&#39;););;JIEQI_USER_ENTRY&#39,&#39;;&#39
0&#39;;,&#39;);&#39;mysql&#39;);;&#39;@define(&#39;@define(&#39,&#39;);@define(&#39;);;;@define(&#39,&#39,&#39;;&#39.5,&#39;@define(&#39;@define(&#39;JIEQI_DB_PREFIX&#39,&#39,&#39;,&#39;JIEQI_META_KEYWORDS&#39;&#39;JIEQI_DB_PASS&#39;@define(&#39;&#39文件里面说（修改define,&#39;&#39;);;@define(&#39;JIEQI_META_DESCRIPTION&#39;JIEQI_IS_OPEN&#39;JIEQI_LICENSE_KEY&#39;&#39,&#39,&#39;);&#39;;);JIEQI_CONTACT_EMAIL&#39;;JIEQI_USER_ENTRY&#39;JIEQI_DB_NAME&#39;@define(&#39;,&#39;@define(&#39;;);@define(&#39;JIEQI_BANNER&#39;JIEQI_MAIN_SERVER&#39;);@define(&#39,&#39;JIEQI_DB_USER&#39;JIEQI_URL&#39;JIEQI_DB_HOST&#39;;);JIEQI_DB_TYPE&#39;@define(&#39;),&#39;;);;);gbk&#39;JIEQI_DB_PCONNECT&#39;&#39;&#39;JIEQI_META_COPYRIGHT&#39;&#39;@define(&#39,&#39;@define(&#39.php
文件里面的数据库连接 和域名）我是在本机测试
不知道要填写哪里 怎么填 请指导
数据库是本机的 测试用软件为 PHPnow-1;@define(&#39;@define(&#39;;);,&#39,&#39;&#39.6 ;&#39,&#39;JIEQI_DB_CHARSET&#39;;);&#39;);););@define(&#39;JIEQI_SITE_NAME&#39,&#39;);1&#39.php
文件内代码如下 @define(&#39;&#39
提问者采纳
PREFIXHOSTUSERPASSNAMEPCONNECTOPENURL名称电子邮件服务器条目关键词描述版权横幅许可证密钥型”,&#39;、“mysql”字符集”;mysql&#39,&#39URL
NAMEEMAILSERVERENTRYKEYWORDSDESCRIPTIONCOPYRIGHTBANNERLICENSE_KEYTYPE&#39;;gbk&#39;CHARSET&#39
提问者评价
其他类似问题
，是防止出错用的，程序就会忽略这句话，楼主只需要知道define这个函数的概念就行了，如果定义的时候出错了（比如不允许这样定义），这样参数一就和参数二等价了~前面的@符号，参数二) 意思就是用参数一来定义参数二。 define(参数一
按默认排序
其他1条回答
义常量。JIEQI 应该是系统约定好的，不显示警告信息，前缀。URL 网址SITE_NAME 网站名称CONTACT_EMAIL 联系邮件等
php的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁请帮忙看下这段js代码错在哪里..谢谢！！！_百度知道
请帮忙看下这段js代码错在哪里..谢谢！！！
&oDiv1;):150px, iTarget){clearInterval(script&}};}&}.currentStyle){text-background, 150):style&gt, 400),30), name){if(obj:Math.floor(speed).currentStyle[name];div1&margin-left.timer=setInterval(function (){var cur=parseInt(getStyle(script&}.onmouseout=function (){startMove(div{&#47&px&#39;height:24px, &#39:#FFF.getElementById(&#39;&#47;speed=speed&gt:left:10font-style&function getStyle(0;}else{return getComputedStyle(&&gt, false)[name];6;&&#47.onload=function (){var oDiv1=};div1&#39;&#47;}else{obj.timer);&};body&gt:#033;var speed=(iTarget-cur)&#47;obj.heigth=cur+speed+&#39;}.timer).body&html&gt?M&heigth&#39;div id=&));div&&&lt.ceil(speed);&#47;oDiv1;function startMove(;};&#47;head&gt.onmouseover=function (){startMove(if(cur==iTarget){clearInterval(变高&lt:150px
提问者采纳
，只是有两个height写成了heigth, &#39.heigth=cur+speed+&#39;px&#39还真没啥错。;))。var cur=parseInt(getStyle(heigth&#39。;.style
谢谢！！= =！纠结我一下午了....太粗心了！
提问者评价
原来是这样，感谢！
其他类似问题
js代码的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}