VB中有这样的函数吗？字符串处理问题，没有这样的函数的话，具体又该怎样的代码？

Question

将某一字符串处理后按指定长度输出，不足长度的话用指定的字符填充空余的部分如：
1890300   12位指定长度,结果应为000001890300或aaaaa1890300等
是否还可以控制左右，既是否可以变为189030000000或1890300aaaaa
    还有一问题，就不另起一贴啦。如果shell打开一个文本文件后，光标停留在指定的
位置上？便于我对指定的文本进行编辑操作？

Answer 1

S=STRING(12-LEN(S),"0") & SS=STRING(12-LEN(S),"a") & S
S=S & STRING(12-LEN(S),"0")  
S=S & STRING(12-LEN(S),"a")  

Answer 2

Replace(format("3001000","!@@@@@@@@@@@@") ," ","a") '=1890300aaaaa
Replace(format("3001000","@@@@@@@@@@@@") ," ","a")  '=aaaaa1890300

Answer 3

dim aa as string
dim inputchar as string
dim start as integer,len as integer
start=3
len=4
inputchar="loveyou"aa=string$("@",12)
mid(aa,start,len)=inputchar
debug.print aa显示
@@love@@@@@@start=起始位置
len=要替换的长度,如省略则把inputchar全写进去,如果已经达到字符串长度,则省略后面的部分
哎MID函数是很多高手都忽略的函数呀!
这个方法是不是比他们的灵活性更强呀.

Answer 4

if len(s)<12 then s=right("000000000000" & s,12)第二个问题吗,呵呵基本上不可能.不过不是没有办法,只是作起来不太花算.而且要用到支持自动化的程序,比如word
Private Sub OpenWordOnSearch(ByVal FileName As String, ByVal SearchString As String)
    Dim w As Object
    
    On Error Resume Next
        Set w = GetObject("", "word.application")
        If w Is Nothing Then
            Set w = CreateObject("word.application")
        End If
    On Error GoTo 0
    
    w.Visible = True
    w.Documents.Open(FileName).Activate
    w.Selection.Find.Execute SearchString
End Sub

Answer 5

zjsm96441125(流星物语) 
好