如何在一个参数中插入字符串(问题已解决，搞的我一身汉）

lingxin5013

我现在程序或获取一个参数，这个参数是个随机的字符串现在我想插如一个空格
如字符串是"hello"
我想在改为"he_llo"
如何实现　不要用right,split
我只能否用如insert(＂hellp＂,"_",2)　呵呵　自己想的这种方式随机插入字符串．

[ 本帖最后由 lingxin5013 于 2008-8-26 09:54 编辑 ]

hsjzfling

既然你有这个需要，那自己写一个insert函数就是咯

lingxin5013

LS关键是我不会写啊　能否帮忙下

kou_dou

同意楼上看法，自己写个函数调用吧

xiaonan

本身vbs里没有insert这种用法,不过正如上面的朋友说的,可以自己设计个函数.

lingxin5013

LS 的几位说了等于没说！（我这句话说的不对，我改啊＠！　哈哈　ＬＳ各位都辛苦了　非常感谢！）

[ 本帖最后由 lingxin5013 于 2008-8-26 10:15 编辑 ]

lingxin5013

''拿出来给大家看看　昨天搞了好长时间才搞出来　大家看了要顶啊　''
''读取列表，把试卷处理成如："中 zhong1"
''Date:   2008-8-25
''

Function DealPinYin(strPinYin, ByRef arrayPinYin())
  Dim index
  Dim i

  index = 0
  '几个字的拼音
  For i = 0 To Len(strPinYin) - 1
    If Mid(strPinYin, i + 1, 1) = "|" Then  '每个字的拼音用'|'分隔
      index = index + 1
    End If
  Next

  ReDim arrayPinYin(index)              '动态数组大小, 日哦，难用极了

  index = 0
  For i = 0 To Len(strPinYin) - 1
        If Mid(strPinYin, i + 1, 1) <> "|" Then  '每个字的拼音用'|'分隔
          arrayPinYin(index) = arrayPinYin(index) + Mid(strPinYin, i + 1, 1)       
        Else
          '---------------------------------------------------------        
             arrayPinYin(index) = Left(arrayPinYin(index),1) + chr(9) + Mid(arrayPinYin(index),2,Len(arrayPinYin(index))-2) + chr(9) + Right(arrayPinYin(index),1)       
          '---------------------------------------------------------              
          index = index + 1
        End If
          Next         
  '---------------------------------------------------------
           arrayPinYin(index) = Left(arrayPinYin(index),1) + chr(9) + Mid(arrayPinYin(index),2,Len(arrayPinYin(index))-2) + chr(9) + Right(arrayPinYin(index),1)
  '---------------------------------------------------------                  
End Function

Function DealHanZi(strHanZi, ByRef arrayHanZi())
  Dim index
  Dim i

  On Error Resume Next '出错后跳到下一句

  ReDim arrayHanZi(Len(strHanZi) / 2)          '汉字占2个字节

  index = 0
  For i = 0 To Len(strHanZi) - 1
    arrayHanZi(index) = Mid(strHanZi, i + 1, 1)
    index = index + 1
  Next
End Function

Function DoProcess(path, OutFileName)
  Dim iCount
  Dim strOneLine

  Dim PinYin()
  Dim HanZi()

  Dim doPinYin
  Dim doHanZi

  Set fsObj = CreateObject("Scripting.FileSystemObject")
  Set fileObj = fsObj.OpenTextFile(path)

  Set fsOutObj = CreateObject("Scripting.FileSystemObject")
  Set fileOutObj = fsOutObj.CreateTextFile(OutFileName, True)

  iCount = 0

  '到行，处理：汉字、拼音、空行
  While Not fileObj.atEndOfStream
    strOneLine = fileObj.readline

    strOneLine = Replace(strOneLine, " ", "")                '去空格
    strOneLine = Replace(strOneLine, Chr(9), "")        '删除Tab
   
  '---------------------------------------------------------
    strOneLine = Replace(strOneLine, "~", "")                '
    strOneLine = Replace(strOneLine, "#", "")                '       
  '---------------------------------------------------------     

    If Len(strOneLine) > 0 Then                   '不是空行
      If Asc(strOneLine) > Asc("a") And Asc(strOneLine) < Asc("z") Then '拼音行
          '---------------------------------------------------------     
            strOneLine = Replace(strOneLine, "zh", "!")                '
            strOneLine = Replace(strOneLine, "ch", "@")                '
            strOneLine = Replace(strOneLine, "sh", "#")                '
          '---------------------------------------------------------   
        DealPinYin strOneLine, PinYin   
        doPinYin = True
      Else
        DealHanZi strOneLine, HanZi
        doHanZi = True
      End If

      '输出结果
      If doPinYin And doHanZi Then
        For i = 0 To UBound(PinYin)
          strOneLine = HanZi(i) + Chr(9) + PinYin(i)
                  '---------------------------------------------------------
                    strOneLine = Replace(strOneLine, "!", "zh")                '
                    strOneLine = Replace(strOneLine, "@", "ch")                '
                    strOneLine = Replace(strOneLine, "#", "sh")                '
                  '---------------------------------------------------------            
          fileOutObj.WriteLine (strOneLine)
        Next

        doPinYin = False
        doHanZi = False
      End If
    End If
    iCount = iCount + 1
  Wend
  fileOutObj.Close
End Function




'''''''''''main()'''''''''''
On Error Resume Next '出错后跳到下一句

Set fsList = CreateObject("Scripting.FileSystemObject")
Set objList = fsList.OpenTextFile("list.txt")

If Err.Number <> 0 Then
  MsgBox ("list.txt文件不存在")
End If

Dim i
Dim iPos

Dim strOneLine
Dim strFileName

While Not objList.atEndOfStream
  strOneLine = objList.readline

  strOneLine = Replace(strOneLine, " ", "")     '去空格
  strOneLine = Replace(strOneLine, Chr(9), "")  '删除Tab

  If Len(strOneLine) > 0 Then                   '不是空行
    '找出文件名开始的位置
    iPos = InStrRev(strOneLine, "\", -1, 1)

    If iPos > 0 Then strFileName = Right(strOneLine, Len(strOneLine) - iPos)

    DoProcess strOneLine, strFileName
  End If
Wend

[ 本帖最后由 lingxin5013 于 2008-8-26 10:16 编辑 ]

kevin_swpi

呵呵  给楼主顶一个
下来研究下你这段代码
看能不能给你找几个bug出来

BTW:
"LS 的几位说了等于没说！"
楼主这个话说的不好
大家也是发表自己的意见或者建议
没有功劳也有苦劳吧

尊重别人才能得到别人的尊重
这样才有人给你顶这样长的一段函数数
--说的不好之处不要见怪
呵呵

lingxin5013

呵呵ＬＳ　说的是　心情有点激动啊　哈哈　
你们搞学计算机的肯定简单　我和你们不一样啊　我大学学的法律　刚开始接触计算机我连字节和位是什么都不知道　辛苦啊　　呵呵
ＶＢＳ学习的地方还是很多　多象大家学习，大家都辛苦了，共同学习，共同提高．

mustwangrong

顶楼主
好长,有空再看~