请问各位大大~
小弟将text1.text 和 text2.text写到txt中,
由于text1和text2的字数是会变动的,

打开文件档会发现格式变成
123; 456;
32123; 78910;

但是我希望打开文件档的 ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

设定统一的字串长度，如果长度是5~
写档的时候，长度不足5的，就补空白~
这样应该可以了~

下面是引用Freelife于2008-03-07 08:26发表的 :
设定统一的字串长度，如果长度是5~
写档的时候，长度不足5的，就补空白~
这样应该可以了~

我也有这样想～
但是我写max=10
结果没有效果～
是要写在text_change
还是要写在cmd_click
还是不能单独写max=10
谢谢～

Private Sub sure_Click()
Open "\xxx\test.txt" For Append As #1
MaxLengh = 10 '不知道是不是这样用
Str1 = Text2.Text + ";" + Text1.Text + ";"
Print #1, Str1
Close #1
End Sub

...你好像有点搞错了

Private Sub sure_Click()
  Open "\xxx\test.txt" For Append As #1
    MaxLengh = 10 '不知道是不是这样用 <-只写这行根本就没有"使用它"当然没用
    Str1 = Text2.Text + Space(MaxLengh - Len(Text2.Text)) + ";" + _
          Text1.Text + Space(MaxLengh - Len(Text1.Text)) + ";"
    Print #1, Str1
  Close #1
End Sub

"_" :将叙述延伸到下一行
Space(N) 函数 :填充N个空白字元
Len(Str) 函数 :计算Str字串的长度(字元数)

这样应该就能达到你要的了...
读的时候记得用字串变数接收 然后以";"为依据

加油~~

我照你说的方式真的可以做出来了~
定义text1和text2的最大长度就可以分别+上space
不过后来发现中文字被当成一个字元~
我是用*2的方式让中文字被当成两个字元来算,
所以格式上在中文就可以变整齐了~
但是英文本来就是一个字元,*2之后格式又会变成怪怪的~
只能用全形英文....
我觉得应该用定义中文字为两个字元,英文字为一个字元的方式~
但是却不知道该怎么定义~
麻烦大大指导~
谢谢大大


Private Sub sure_Click()
Open "\xxx\test.txt" For Append As #1
  MaxLengh = 10 '不知道是不是这样用 <-只写这行根本就没有"使用它"当然没用
  Str1 = Text2.Text + Space(MaxLengh - Len(Text2.Text)) + ";" + _
      Text1.Text + Space(MaxLengh - Len(Text1.Text)) + ";"
  Print #1, Str1
Close #1
End Sub


另外test.txt本身里面有个;
当我print #1,str1的时候
文件内容会变成
;
123   ;456   ;

我希望变成写入456 789的时候,
格式为
123   ;456   ;
456   ;789   ;
;

再写入下一比新资料时,888 999的时候
格式为
123   ;456   ;
456   ;789   ;
888   ;999   ;
;

不知道应该是print要改,还是Open "\xxx\test.txt" For Append As #1 红字部分要改~
谢谢大大指导~真的很感谢!!

中文字的话可以把 Len(字串) 改成用 LenB(字串)
这样他传回的数字就是以位元组计算的...

Print Len("Abc") '印出3
Print Len("Ａｂｃ") '印出3

Print LenB("Abc") '印出3
Print LenB("Ａｂｃ") '印出6

Print LenB("中文字Abc") '印出9
(三个中文字跟三个半型英文字 2 x 3 + 1 x 3 = 9)

这样~~试试看

至于另一个问题的话
如果你的总资料量不大
可以试着在要写入新增的资料之前
先把档案中所有的资料读进来
然后跟你要新增的资料做整理
整理好了一起输出覆盖掉原档案

LenB果然是解决了我的问题~
后来翻书的时候~
意外的也看到了这函数的介绍~

不过第二个问题还是想不出来怎么写~
open txt是把文件档打开,
那该如何把文件档里面的资料先读到暂存?
如果档案越来越大~
读暂存和写入资料的速度和时间就会变多了吧?
那如果这样的方法对旧PC来说会不会等下系统负荷当机了@@
还是有语法是可以开启txt先执行上一行文字的动作,
例如我每次把资料写进去
123 ;456 ;
321 ;654 ;
;

下次就可以先删除 ;
再继续写
123 ;456 ;
321 ;654 ;
888 ;999 ;
;

不知道这样的逻辑是否可以有方法写出来~

谢谢大大的解惑~

Open "\xxx\test.txt" For Append As #1
Text1.MaxLength = 8
Text2.MaxLength = 20
If Text1.MaxLength - LenB(Text1.Text) > 8 Then
Str1 = Text2.Text + Space(Text2.MaxLength - LenB(Text2.Text)) + ";" + _
Text1.Text + Space(Text1.MaxLength - Len(Text1.Text)) + ";"
Print #1, Str1
Close #1
Else
  MsgBox "字串过长...."
  Close #1
End If
End Sub

我目前是这样写~
但是我觉得我的IF都没有作用~
不管我text1得字串换算是不是>8
他都会跳message
然到 if 后面不能那样写吗??
谢谢~

蛮纳闷为什么最后要多留一个 ";"
既然这份档案是只有你的程式在读取的话
那么应该做好格式管理
让程式能方便进行读取

复制程式
mode 就我知道的有三种 Input / Output / Append
Input 将档案内容读入
Output 将档案复写
Append 附加至档尾

三种的使用范例与详细差异可以参考这个网站的教学
http://vb.nci....tw/
左边[入门群组]底下的[VB6/VBA新手教学]项目

可以再写入档案或是程式执行前
先利用 Input 模式将档案内容读入
复制程式 然后检查档案内容格式是否为你所要的
是的话输出的时候就可以用 Append 模式直接将你的新资料附加在档尾
如果不是, 则将资料整理成你要个格式后用 Output 模式连同你的新资料
一起输出覆盖掉原来的档案

限制字串长度的部分...
复制程式 逻辑不太对...请再想一下看看 (大小于?)

TextBox 的 MaxLength 属性是用来在程式执行期间限制使用者 KeyIn 到 TextBox 当中的长度
只是判断方式类似 Len() 所以可能不能符合你需求
所以你应该自己宣告个变数(或常数)放你要求的长度然后把 If 改写成
复制程式

OVERING 大大实在太厉害了
对问题的解惑也很热心

唉牙~别这么说嘛~
版上大大也是很多的
只是他们比较忙
再说这是分享的快乐阿~