Dim備分場為整數，縱場為整數，I為整數
Dim北分為弦，郭解為弦，r為弦，趙道為弦
宗昌= Len(Text1。正文)
beifen = Text1。文本
郭解= " "
打開應用程序。Path + "\2.txt "作為#1輸入
線路輸入#1，r
邊做邊縱長& gt1
對於i = 1至總場
If InStr(r，Right(beifen，I))& lt；& gt那麽0
趙道=右(北分，我)
北分場= i
如果…就會結束
接下來我
郭解= "/" +趙道+郭解
北分=左(北分，總場-北分場)
宗昌= Len(倍分)
環
文本2。文本=郭解
關閉#1
末端接頭