分享一个好东东,动态Include文件 (Dynamic File Inclu(4)

      end if 
    end sub 

    private sub processincludes(str_source) 
      dim int_start, str_path, str_mid, str_temp 
      str_source = replace(str_source,"<!-- #","<!--#") 
      int_start = instr(str_source,"<!--#include") 
      str_mid = lcase(getbetween(str_source,"<!--#include","-->")) 
      do until int_start = 0 
        str_mid = lcase(getbetween(str_source,"<!--","-->")) 
        int_start = instr(str_mid,"#include") 
        if int_start >  0 then 
          str_temp = lcase(getbetween(str_mid,chr(34),chr(34))) 
          str_temp = trim(str_temp) 
          str_path = readfile(str_temp) 
          str_source = replace(str_source,"<!--" & str_mid & "-->",str_path & vbcrlf) 
        end if 
        int_start = instr(str_source,"#include") 
      loop 
    end sub 

    private sub formatcode(str_code) 
      dim i, arr_temp, int_len 
      str_code = replace(str_code,vbcrlf & vbcrlf,vbcrlf) 
      if left(str_code,2) = vbcrlf then str_code = right(str_code,len(str_code) - 2) 
      str_code = trim(str_code) 
      if instr(str_code,vbcrlf) > 0 then 
        arr_temp = split(str_code,vbcrlf) 
        for i = 0 to ubound(arr_temp) 
          arr_temp(i) = ltrim(arr_temp(i)) 
          if arr_temp(i) <> "" then arr_temp(i) = arr_temp(i) & vbcrlf 
        next