Sub XXX() Dim arr() arr = Application.GetOpenFilename("所有支付文件 (*.xls;*.xlsx;*.csv),*.xls;*.xlsx;*.csv,Excel 文件 (*.xls),*.xls,Excel2007 文件 (*.xlsx),*.xlsx,CSV 文件 (*.csv),*.csv", , "选择文件", , True) For i = LBound(arr) To UBound(arr) Cells
前台Js // 视频处理 var textVideoLink=$("input[name='textVideoLink']").val(); // 去除所有有的引号和空格 var vk=textVideoLink.replace(/\"/g, ""); // 地址的处理 var reg = RegExp(/allowfullscreen/); var youku = RegExp(/youku/); var youkuPostfix = RegExp(/f
extern "C" DllExport void ufusr(char *param, int *retcod, int param_len) { if (UF_initialize()) { /* Failed to initialize */ return; } // The following method shows the dialog immediately AFX_MANAGE_STATE(AfxGetStaticModuleState()); HWND UGHwnd