vb中怎么实现文本两列互换位置?

hnjzdf 2009-12-18 11:06:44

vb中怎么实现文本两列互换位置?第二列和第三列位置换过来，
文本内容格式如下：
a,s,d,f
g,h,j,k
q,w,e,r
转换成：
a,d,s,f
g,j,h,k
q,e,w,r

...全文

950 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

qinchangsi 2010-02-04

打赏
举报

值得学习一下

hnjzdf 2009-12-20

打赏
举报

下一步再研究合并文本，整不明白再来提问

hnjzdf 2009-12-20

打赏
举报

SYSSZ你真是个好人呀！！！
正是要这个东东，主要是学习，msdn中也没有split和join的示例，看的不是很明白，这下好了
谢谢了

孤独剑_LPZ 2009-12-19

打赏
举报

想学习，就看看msdn的split和join的用法
变换一下位置,就如：a,b,c,d b和c换位,s=ss(1):ss(1)=ss(2):ss(2)=s
是基础的算法

SYSSZ 2009-12-19

打赏
举报

改为交换列的:

Private Sub Form_Load()

Dim s0 As String

Dim s As String, s1 As String, s2 As String, ss As String



Dim i  As Integer

Dim a

Open "C:\1.txt" For Input As #1

Do Until EOF(1)

Line Input #1, s

a = Split(s, ",")

If s <> "" Then

s1 = a(1)

s2 = a(2)

a(2) = s1

a(1) = s2

s = Join(a, ",")

End If

ss = ss & s & vbCrLf

Loop

Close #1

Open "C:\1.txt" For Output As #1

Print #1, ss

Close #1

End Sub

sdrczht 2009-12-19

打赏
举报

认真学习中！

SYSSZ 2009-12-19

打赏
举报

上面换的是第一行与第二行，看错了

SYSSZ 2009-12-19

打赏
举报

Private Sub Form_Load()

Dim s0 As String

Dim s1 As String

Dim ss As String

Dim s As String

Dim i  As Integer

Dim a() As String

Open "C:\1.txt" For Input As #1

Do Until EOF(1)

Line Input #1, s

ReDim Preserve a(i)

a(i) = s

i = i + 1

Loop

Close #1

s0 = a(0)

s1 = a(1)

a(0) = s1

a(1) = s0

For i = 0 To UBound(a)

ss = ss & a(i) & vbCrLf

Next

Open "C:\1.txt" For Output As #1

Print #1, ss

Close #1

End Sub

chinaboyzyq 2009-12-19

打赏
举报

[Quote=引用楼主 hnjzdf 的回复:]
vb中怎么实现文本两列互换位置?第二列和第三列位置换过来，
[/Quote]
就是把文本全部读进内存，交换后再写回去。用:
open "文件路径" for input as #1 '读入
交换操作……
close #1
open "文件路径" for output as #1'写回
写回操作……
close #1