转换字符

ChinaOBS
独孤丘雪(Excel终极伴侣==www.ChinaOBS.com
等级:

发表于：2008-05-04 19:56:021楼得分:0

最先想到的是笨办法... ...

修改删除举报引用回复

Chen8013
举杯邀明月
等级:

发表于：2008-05-04 22:17:402楼得分:0

VBScript code

Function ReplaceStr(strTemp$)
    strTemp = Replace(strTemp, "('", ".php?id=", 1, 1)
    strTemp = Replace(strTemp, "','", "&type=", 1, 1)
    ReplaceStr = Replace(strTemp, "')", "", 1, 1)
End Function

Sub test()
    Debug.Print ReplaceStr("courseware('7114','3')")
    Debug.Print ReplaceStr("courseware('6','3')")
    Debug.Print ReplaceStr("courseware('92','3')")
End Sub

修改删除举报引用回复

Chen8013
举杯邀明月
等级:

发表于：2008-05-04 22:21:473楼得分:0

沙发上的别笑话我的这个笨办法　^_^

修改删除举报引用回复

gracexu
唐诗宋词
等级:

发表于：2008-05-05 02:48:564楼得分:0

我现在手头没有 Excel，但是我可以提供一个思路。
假设A1是courseware('7112','3')
在B1输入 =Replace(A1,1,12,"courseware.php?id=")就可以转换成courseware.php?id=7112','3')
对于得出的这个字符，我们可以用Find找出 ','的位置
=Find(",",Replace(A1,1,12,"courseware.php?id="))
找出这个位置干嘛用呢，用Left 函数取','之前的部分
=Left(Replace(A1,1,12,"courseware.php?id="),(Find(",",Replace(A1,1,12,"courseware.php?id="))-2)
然后就可以得出courseware.php?id=7112
至于3，可以用Right函数得出 Left(right(A1,3),1)
然后再把中间的字符连接上
=Left(Replace(A1,1,12,"courseware.php?id="),(Find(",",Replace(A1,1,12,"courseware.php?id="))-2) & "&type=" & Left(right(A1,3),1)

修改删除举报引用回复

zabaglione
静水凝月
等级:

发表于：2008-05-05 08:41:215楼得分:0

用vba来做最快。

修改删除举报引用回复

zipall
一意孤行
等级:

发表于：2008-05-05 08:46:246楼得分:0

ctrl+h
3次替换就完成了。

VB.NET code


('     →   .php?id=
','    →   &type=
')     →   空值（什么都不用输入）

全部替换。

修改删除举报引用回复

gracexu
唐诗宋词
等级:

发表于：2008-05-05 09:29:267楼得分:0

楼上的做法我不是很支持，因为我自己处理过类似的数据，全面替换会误伤其它单元格内容的。如果楼主的表里全部是这样的数据，这种方法当然是很快的。

我把公式完善了一下：
=LEFT(REPLACE(A1,1,12,"courseware.php?id="),(FIND(",",REPLACE(A1,1,12,"courseware.php?id="))-2))&"&type="&LEFT(RIGHT(A1,3),1)
或者
="courseware.php?id=" & MID(A1,FIND("(",A1)+2,(FIND(",",A1)-FIND("(",A1)-3)) & "&type=" & LEFT(RIGHT(A1,3),1)

修改删除举报引用回复

bjsun
王者归来
等级:

发表于：2008-05-08 16:39:018楼得分:0

该回复于2008-05-09 09:40:44被管理员删除

修改删除举报引用回复