VB中，例如text1.text=10。我想将这个数据生成为一个TXT文件，里面的内容为10。代码
VB中，例如text1.text=10。我想将这个数据生成为一个TXT文件，里面的内容为10。代码该怎么写？
ä¸é¢çå 容çä¸è§
ç´æ¥è´´ä»£ç å§
帮忙写一段vb代码,要求如下,四个文本框 ,一个按钮
Private Sub cgtxt(ByVal ii As Integer)x = ii If x = 1 Then Text10.Text = Mid(Text1.Text, 1, 3)Text11.Text = Mid(Text1.Text, 4, 4)Text12.Text = Mid(Text1.Text, 8, 4)ElseIf x = 2 Then Text1 = Text10 & Text11 & Text12 End If End Sub ...
在VB中如何把一个文本框里面的数据写如一个TXT文件
print #1,text1.text '这里可以是数据本身也可以是目标控件的属性 close #1 '关闭打开的文件 '--end--- 执行上面的代码后 text1中的内容就会被写到c盘的test.txt文件里
VB中如何保存textbox中的内容为txt文件
Close 1 2.把txt文档输入到text1.text中：Open "路径+文件名.txt"For Input As 1 Do Until EOF(1)Line Input 1,nextline '逐行读入 Text1.Text = Text1.Text + nextline + Chr(13)+ Chr(10)'回车，换行 Loop Close 1
怎么写vb中导出txt(文本文档)的代码
Text1.FontSize = Text2.Text End SubPrivate Sub Command2_Click()Open App.Path & "\\保存.txt" For Append As #1 Print #1, Text1.Text Close #1 End Sub Private Sub Label1_Click()Text1.BackColor = Label1.BackColor End SubPrivate Sub Label2_Click()Text1.BackColor = Label2....
VB如何创建以text1.text(就是text1的内容)为文件名的文本文件
代码如下：Private Sub Form_Click()Open App.Path & "\\" & Text1.Text & ".txt" For Output As #1 Close #1 End Sub
如何将VB中text控件输入的文字转换为字符串?
定义一个字符串变量例:dim s as strings=text1.text这样就可以把文本框中输入的文本赋给变量s了,在VB中使用变量S即可 本回答由电脑网络分类达人 赵国琴推荐 举报| 答案纠错 | 评论(1) 1 3 VF学习 采纳率:56% 擅长: 暂未定制 其他回答 从工程中引用 Microsoft Script Control 然后:Dim ScriptControl1 ...
请教各位vb高手,我如何把文本的内容text1.text写入到我新建的文本文件里...
Public Function savefile(ByVal filepath As String, ByVal txt As String)Open filepath For Output As #1 Print #1, txt Close #1 End Function Function disStr(ByVal vstr As String) As String '文件路径\/\\字符处理函数 If Right$(vstr, 1) <> "\\" And Right$(vstr, 1) <> "\/"...
vB将text英文转化为数字
Private Sub Command1_Click()Dim Tmp As String Text2 = ""For i = 1 To Len(Text1.Text)Tmp = Mid(Text1.Text, i, 1)If IsNumeric(Asc(Tmp)) Then Text2 = Text2 & Asc(Tmp) & " "End If Next i End Sub 如果2008不想转换，就用下面代码 Private Sub Command1_Click()Dim ...
VB中怎样把Text1的内容写入到一个有文字的txt的某一行?
Open TxtFilePath For Output As #FileNum Close #FileNum End If Open TxtFilePath For Input As #FileNum Do While Not EOF(1)i = i + 1 ReDim Preserve TxtLine(1 To i) As String Line Input #FileNum, TempStr TxtLine(i) = TempStr Loop Close #FileNum TxtLine(Line) = ...
怎么将vb中text数组内的数据保存成txt形式的文件啊???
-1 'Text1得是一个控件数组 临时 = 临时 & text1(i).text & "-"'"-"为分隔符，方便以后读取，也可以换个更复杂的分隔符，比如：^-^ next open "要存储的TXT路径"for output as 1 print 1,临时;'这里最好加分号，不加也不会出错，但是存储后会多出一个换行 close 1 OK了，不明白的...
