将SQL语句转换为符合VB.NET格式字符串

将SQL语句转换为符合VB.NET格式字符串

实习中时常需要将写好的SQL语句嵌入到VB.NET的函数中，例如将下列SQL：  

-- Get Mother Lot Common Info            select c.customerlotnumber -- customer lot#            ,c.containername --Amkor lot#,            ,amk.description            ,inh.txndate indate--s_time            ,outh.txndate  outdate -- e-time            ,rs.resourcename resourcename            ,emp.fullname            -- ,outh.qty            from container c,historymainline hml,workflowstep wfs            ,operation opt,movehistory outh,moveinhistory inh            ,RESOURCEDEF rs            ,amkorwwoper amk            ,employee emp            where c.splitfromid =(select containerid from container where            containername='ML6410058461')            and hml.reversalstatus=1            and c.containerid=hml.containerid            and hml.operationid=opt.operationid            and hml.workflowstepid=wfs.workflowstepid            and hml.operationid=opt.operationid            and hml.historymainlineid=inh.historymainlineid(+)            and hml.historymainlineid=outh.historymainlineid(+)            and HMl.RESOURCEID=RS.RESOURCEID(+)            and (outh.historymainlineid is not null or inh.historymainlineid is not null)            and opt.amkorwwoperid=amk.amkorwwoperid            and hml.employeeid=emp.employeeid            order by c.containername,to_number(wfs.sequence),inh.txndate,outh.txndate            转换如下形式为：            String sql in VB.NET            sql = "select c.customerlotnumber -- customer lot# " & vbCrLf _            & ",c.containername --Amkor lot#, " & vbCrLf _            & ",amk.description " & vbCrLf _            & ",inh.txndate indate--s_time " & vbCrLf _            & ",outh.txndate  outdate -- e-time " & vbCrLf _            & ",rs.resourcename resourcename " & vbCrLf _            & ",emp.fullname " & vbCrLf _            & "-- ,outh.qty " & vbCrLf _            & "from container c,historymainline hml,workflowstep wfs " & vbCrLf _            & ",operation opt,movehistory outh,moveinhistory inh " & vbCrLf _            & ",RESOURCEDEF rs " & vbCrLf _            & ",amkorwwoper amk " & vbCrLf _            & ",employee emp " & vbCrLf _            & "where c.splitfromid =(select containerid from container where " & vbCrLf _            & "containername='ML6410058461') " & vbCrLf _            & "and hml.reversalstatus=1 " '..

同事Tracy告诉我一个快速方法，仅仅利用UltraEdit的查找替换功能（<>号不填，仅为引用号），

查找：< ^p >

替换：< " & vbCrLf _ ^p & " >

替换的第一个"号前不可省去空格，然后填上头尾即可，^p代表回车符，也就是将回车符展开，是不是很有趣的技巧？