文件读出问题？

我用input   line   读出一行数据存在str里，我又想读出str里的每一个字符串（要一个读一个）？？ 问题点数：50、回复次数：4Top

1 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2002-04-25 13:23:09 得分 0

 
  Mid   函数  
               
   
  返回   Variant   (String)，其中包含字符串中指定数量的字符。  
   
  语法  
   
  Mid(string,   start[,   length])  
   
  Mid   函数的语法具有下面的命名参数：  
   
  部分   说明    
  string   必要参数。字符串表达式，从中返回字符。如果   string   包含   Null，将返回   Null。    
  start   必要参数。为   Long。string   中被取出部分的字符位置。如果   start   超过   string   的字符数，Mid   返回零长度字符串   ("")。    
  length   可选参数；为   Variant   (Long)。要返回的字符数。如果省略或   length   超过文本的字符数（包括   start   处的字符），将返回字符串中从   start   到尾端的所有字符。    
   
   
  说明  
   
  欲知   string   的字符数，可用   Len   函数。  
   
  注意       MidB   函数作用于字符串中包含的字节数据，如同在双字节字符集(DBCS)语言中一样。因此其参数指定的是字节数，而不是字符数。对于使用   MidB的示例代码，请参阅示例主题中的第二个示例。  
  Top

2 楼lipeng_cq（冷月孤星）回复于 2002-04-25 13:29:03 得分 0

用midTop

3 楼cornerxu（面）回复于 2002-04-25 13:32:13 得分 0

dim   a(100)'可调整大小  
  for   i   =   1   to   len(str)  
      a(i)=mid(str,i,1)  
  next  
   
  a(i)为所求Top

4 楼lihonggen0（李洪根，MS MVP，标准答案来了）回复于 2002-04-25 13:40:19 得分 50

你可以参考这个实例  
   
   
  翻转一个字符串    
   
   
  下面的函数利用递归原理获得字符串的翻转字符串  
  Function   reversestring(revstr   As   String)   As   String  
  '   revstr:   要翻转的字符串  
  '   返回值:翻转后的字符串  
   
  Dim   doreverse   As   Long  
   
  reversestring   =   ""  
  For   doreverse   =   Len(revstr)   To   1   Step   -1  
  reversestring   =   reversestring   &   Mid$(revstr,   doreverse,   1)  
  Next  
   
  End   Function    
   
   
     
  Top

相关问题

• 字符
• 函数
• start
• 字符串
• revstr
• 读出
• doreverse
• 翻转
• reversestring
• 参数

• 帖主：lipeng2
• lihonggen0

• Visual Basic类图书
• Visual Basic类源码下载