vba数组保存txt

霍窦璧2669VB 实现txt字符替换 -
单姜物13818106940 ______ Dim tmpStr As String, resStr As String, a As String'读取txt Open ＂d:\vb.txt＂ For Input As #1 Do While Not (EOF(1)) Input #1, a tmpStr = tmpStr & a Loop Close #1'开始处理字符串 resStr = Replace(tmpStr, ＂abc＂, ＂xyz＂)'保存 Open ＂d:\vb_replace.txt＂ For Output As #1 Print #1, resStr Close #1

霍窦璧2669vb中如何将数组输出到txt中,并以二维数组的形式在txt中. -
单姜物13818106940 ______ 那是因为编辑过程中就把模板中的标题栏给删了,编辑后的效果也就成了ppt“无标题”现象 实际并不影响演示效果,如果实在要一个标题,具体方法: 新建幻灯片是,在标题栏的文本编辑框里填写标题就好了.

霍窦璧2669vb里怎么把数组写入txt文件 -
单姜物13818106940 ______ open filename for output as #1 for i=lbound(a,1) to ubound(a,1) for j=lbound(a,2) to ubound(a,2) s=＂＂ s=s & a(i,j) & iif(j=ubound(a,2),＂,＂,) print #1, s next next close #1

霍窦璧2669VBA如何把单元格数据保存致当前文件夹下? -
单姜物13818106940 ______ 当前路径是 thisworkbook.path 保存的话,可以用workbook.saveas

霍窦璧2669VB中,我赋值给一个二维数组,想把这个数组保存到txt中,然后再从这个TXT文件中把读取数据,再赋给二维数组 -
单姜物13818106940 ______ Dim a(1 To 10) As Integer Private Sub Cmd1_Click() Dim i As Integer Text1.Text = ＂＂ Open ＂in.txt＂ For Input As #1 For i = 1 To 10 Input #1, a(i) Text1.Text = Text1.Text & a(i) & Space(5) Next i Close #1 End Sub Private Sub Cmd2_Click() Dim i...

霍窦璧2669请问vb中如何将二维数组输出到txt文件中 -
单姜物13818106940 ______ open ＂c:\1.txt＂ for output as #1 for i=0 to 20 for j=0 to 15 print #1,c(i,j); next j print #1 next i close #1 这样结果就被保存到c:\1.txt中了.

霍窦璧2669怎么将vb中text数组内的数据保存成txt形式的文件啊??? -
单姜物13818106940 ______ dim i as integer dim 临时 as string for i = 0 to text1.count -1'Text1得是一个控件数组 临时 = 临时 & text1(i).text & ＂-＂' ＂-＂为分隔符,方便以后读取,也可以换个更复杂的分隔符,比如:^-^ next open ＂要存储的TXT路径＂ for output as #1 print #1,临时;'这里最好加分号,不加也不会出错,但是存储后会多出一个换行 close #1 OK了,不明白的问我!

霍窦璧2669vb怎么用数组保存本地txt的字符串 -
单姜物13818106940 ______ 有那么复杂吗?几句代码就搞定 Sub ReadFile(sFile As String) Dim ByteArr() As Byte Dim lFile As Long, lSize As Long Dim sData() As String '用于存放TXT文本的数组 Dim Tmp As Long If Dir(sFile) = ＂＂ Then Exit Sub '文件不存在则退出 lFile ...

霍窦璧2669VB6.0 从4个字符串数组中分别选择一个 排列出所有组合 并保存到TXT -
单姜物13818106940 ______ Dim a$(4), b$(4), c$(4), d$(4) Private Sub command1_click() Open ＂d:/001.txt＂ For Output As #1 For i = 0 To 4 For j = 0 To 4 For k = 0 To 4 For l = 0 To 4 Print #1, a(i) & b(i) & c(i) & d(i) & ＂ ＂; Next l, k, j, i Close #1 End SubPrivate Sub Form_...

霍窦璧2669vba 读txt内容到数组 -
单姜物13818106940 ______ 涉及到的知识:1,读取文本文件.2,列表框控件的使用.完整代码如下:123456789101112131415 DimMyData AsString '清除列表框控件中的数据项 ListBox1.Clear '读取文件信息 Open ＂C:\数据文件.txt＂ForInput As#1 '以读的方式打开文件 MyStr = ＂＂ DoWhileNotEOF(1) ' 循环至文件尾 '读取一行数据 Line Input #1, MyData '把读取的数据添加到列表框控件 ListBox1.AddItem MyData Loop Close #1 ' 关闭文件.