Close 1 MsgBox "保存成功 请去C:盘根目录查找你刚刚保存的文件,可以用记事本打开", vbInformation End Sub Private Sub Form_Load()Text1.Text = "我是一个中国人呀,一呀一呀哟!" '保存为文件的内容 Text2.Text = "123.txt" '保存文件的名字 Command1.Caption = "保存"End Sub ...
Set vbs = CreateObject("ScriptControl")vbs.Language = "vbs"vbs.ExecuteStatement "a1=3:a2=5:d=7:b=6:c=3"MsgBox vbs.Eval("a1+a2*d-b/c")Set vbs = Nothing End Sub ScriptControl接口 属性名称 类型 备注 AllowUI BOOL 检测是否允许运行用户的接口元素。如果为False,则诸如消息框之类...
那么读取其内容 set txt=fs.opentextfile("C:\a.txt",forreading,true)set txtn=txt.readall else'set txtf=fs.createtextfile("c:\a.txt",true)'创建C盘下的a.txt do'无限循环 wscript.sleep 1000'延时一秒 txtf.write a.text'写入文本框中内容 loop'循环结束 end if'判断结束 ...
Private Sub Command1_Click()Dim filename As String filename = "c:\1.txt"If Dir$(filename, vbHidden Or vbNormal Or vbReadOnly) <> "" Then Open filename For Append As #1 Print #1, Text1.Text MsgBox "文本成功保存到" & filename & "中!", 64, "Success!"Else MsgBox "...
我一般都用aspose.word.dll来完成 先把文本框类容和图片存到word里面,然后把word专程pdf 这种方法很灵活也很生动,比直接生成pdf好多了 给你的附件有vb.net的例子还有aspose.word的dll档案 例子是从官网下的,我就是用这些例子学的,很简单。现在我很多项目需要生成pdf都是用这个完成的。
1.你要解决读文本文件:2.你要解决如何寻找关键字,并进行替换.二.将字符串变量,保存到新的文本文件里 答案:1.读文本文件:窗体上添加1个文本框(设置它的多行显示的属性),1个按钮:代码如下:Private Sub Command2_Click()Dim FStr As String'存放读取的全部内容 Dim MyString As String...
Load()Dim s As String If Dir("c:\temp.txt") <> "" Then Text1.Text = ""Open "c:\temp.txt" For Input As #1 While Not EOF(1)Line Input #1, s Text1.Text = Text1.Text & s & vbCrLf Wend End If End Sub 这样点击按钮,文本框的文本就保存到c:\temp.txt文件中。
一楼的是对的,嗯,我解释一下一楼的语句,Open "C:1.txt" For Output As #1 ‘打开一个路劲为C:1.txt的txt文件,For Output 以读写的方式,也就是没有这个文件新建这个文件,As #1把这个文件命名为一号文件。print #1, Text1.Text, Text2.Text, Text3.Text 写入text1...Close #1 关闭...
Dim i As Integer, j As Integer, s As String i = InStr(Text1.Text, "今")If i Then j = InStr(i + 1, Text1.Text, "了。")If j Then s = Mid(Text1.Text, i, j - i + 2)MsgBox "找到了:" & s Else MsgBox "未找到"End If Else MsgBox "未找到"End If ...
str5(0) = 255 '字串的前两个Byte存该字串的最大长度 str5(0) = 255 i = SendMessage(Text1.hwnd, EM_GETLINE, ntx, str5(0))If i = 0 Then GetaLine = ""Else str6 = StrConv(str5, vbUnicode)GetaLine = Left(str6, InStr(1, str6, Chr(0)) - 1)End If End ...