有谁知道这是什么语言？？
如题：
**********************write sql into file**************************
ScriptPath = "/EDWETL/P09IDS_ECIF/Script/Import_ECIF_EDW/"
Pathname = ScriptPath : "edw_sql_con.sql"
sWORKDATE = ""
sqlstr = "select paramname,paramvalue from edw_etl_config;"
*open sql file
OpenSeq Pathname To FileVar LOCKED
FilePresent = @True
End Then
FilePresent = @True
End Else
FilePresent = @False
End
*truncate content of file
WeofSeq FileVar
*write content of file
ErrorStr = "write file successful"
*get truncate sql string
*Trstr = "Truncate table edw_etl_log;"
setstr = "set echo off newpage 0 space 0 pagesize 0 feed off head off trimspool on;"
*WriteSeq Trstr To FileVar Else
*ErrorStr = "can not write file"
*End
WriteSeq setstr To FileVar Else
ErrorStr = "can not write file"
End
WriteSeq "SPOOL " : ScriptPath : "edw_sql_rs.txt;" To FileVar Else
ErrorStr = "can not write file"
End
WriteSeq sqlstr To FileVar Else
ErrorStr = "can not write file"
End
WriteSeq "SPOOL OFF;" To FileVar Else
ErrorStr = "can not write file"
End
WriteSeq "quit" To FileVar Else
ErrorStr = "can not write file"
End
*close file
CloseSeq FileVar
Call DSLogInfo("write sql file: ":ErrorStr, "EDW_SetParam")
********************exec sql,write config info into result file******************************
*get the exec sql shell file
cmd=ScriptPath : "edw_exec_sql.sh"
*execute shell command
Call DSExecute ("UNIX",cmd, Output, SystemReturnCode)
Call DSLogInfo("exe sql: ":Output, "EDW_SetParam")
********************************get sql result string***********************************
*get select result txt
ResultFile = ScriptPath : "edw_sql_rs.txt"
OpenSeq ResultFile To FileVar Else
ErrorStr = "can not open file"
End
Loop
ReadSeq FileLine From FileVar
On Error
ErrorStr = "can not read file"
End
Then
* filter empty field
If FileLine <> "" then
*organize result into a string, style is : paramname,paramvalue,paramname1,paramvalue1,...
ParamVal = ParamVal : FileLine : ","
End
End Else
exit ;
* at end-of-file
End
Repeat
*close sql result file
CloseSeq FileVar
Call DSLogInfo("analyze sql string: ":ParamVal , "EDW_SetParam")
**************************get par_date value*********************
ColCount = Count(ParamVal,",")
For ColInner = 1 to ColCount
If Trim(Field(ParamVal, ",", ColInner)) = "WORKDATE" Then
sWORKDATE = Trim(Field(ParamVal, ",", ColInner+1))
exit
End
Next ColInner
Call DSLogInfo("set param successful" , "EDW_SetParam")
[解决办法]
好像是自己定义的脚本文件，做文件解析用的。没见过，猜的。
[解决办法]
vbs 啊
[解决办法]
乍一看就是VB
[解决办法]
好像是DOS操作语言
[解决办法]
ColCount = Count(ParamVal,",")
For ColInner = 1 to ColCount
If Trim(Field(ParamVal, ",", ColInner)) = "WORKDATE" Then
sWORKDATE = Trim(Field(ParamVal, ",", ColInner+1))
exit
End
Next ColInner
Call DSLogInfo("set param successful" , "EDW_SetParam")
就看这段就是VB
------解决方案--------------------
Quick Basic
