听todaynew老师的建议,新开一贴,继续求教:
按yehf网友例子学做一窗体,窗体中有一个Microsoft Web Browser控件W1、一个文本框text1和一个命令按钮Command1。代码如下:
Private Sub Command1_Click()
Me.Text1 = Me.W1.Document.body.innertext
End Sub
Private Sub Form_Load()
Me.W1.Navigate "http://inolink.com/ws/Get.aspx?CorpID=******&Pwd=******" '*号代表短信平台的帐号和密码.
End Sub
现在已经达到效果,窗体加载后在窗体中的控件W1中接收到不确定数量的回复短信,每条短信都是括号中的格式 ( ||回复手机号码#回复内容#回复的时间# ) 但是 每条短信之间不分行且没有间隔。点击命令按钮这些短信写入到text1中,仍然不分行,难以阅读。
我现在采取的办法是设置字符串Dx=Me.W1.Document.body.innertext ,然后用Replace命令把Dx中的“||”替换成回车符vbcrlf,然后把DX写入Text1。这样虽然可以实现每条短信一行了,但仍然存在2个问题:
1、因为每条短信的内容长短不一,内容后面紧跟的回复i时间就不能上下对齐,不整齐美观。
2、因为平台短信只能接收一次,如果把窗体关闭,再打开就收不到已经看过的短信了。
请问各位老师:1、分行的办法是否合理,还有其他更好的办法吗?2、是否可以把短信保存到一个表或者一个txt文本中?求代码!