哪们高手能给翻译一下这是什么意思,最好每行都说一下,小弟真的一点不懂,领导突然就给这么一个东西,谢谢了

问题描述

SubGeneration()''GenerationMacro''快捷键:Ctrl+Shift+GDimiRow,iCol,iRntDimCurRootDimxFileName,xID,xPath,xTDir,xRNTxFileName=1xID=9xPath=10xTDir=11xRNT=12CurRoot="D:MSDNLib"ForiRow=2To3000IfSheet1.Cells(iRow,xID)=""ThenExitForEndIfiRnt=GenFile(Sheet1.Cells(iRow,xFileName),CurRoot,"Result"&Sheet1.Cells(iRow,xPath),Sheet1.Cells(iRow,11))Sheet1.Cells(iRow,xRNT)=iRntNextMsgBox"OO"'EndSubFunctionGenFile(sFile,sRoot,sPath,sContent)AsLongDimsTarget,sSourcesTarget=CreateDir(sRoot,sPath)&""&sFileSource=sRoot&""&sPath&""&sFileIfInStr(1,".xml",sFile)<=0ThenGenFile=-1ExitFunctionEndIfDimxmlG1,xmlG2xmlG1=xmlG1&"<?xmlversion=""1.0""encoding=""utf-8""?>"&vbCrLfxmlG1=xmlG1&"<contentxmlns=""http://www.microsoft.com/MSCOM/MNP2/Schemas""type=""MNP2.GenericHome"">"&vbCrLfxmlG1=xmlG1&"<head>"&vbCrLfxmlG1=xmlG1&"<metaname=""description""content=""MSDN中文网站""/>"&vbCrLfxmlG1=xmlG1&"<metaname=""keywords""content=""MSDN中文网站""/>"&vbCrLfxmlG1=xmlG1&""&vbCrLfxmlG1=xmlG1&"</head>"&vbCrLfxmlG1=xmlG1&"<bodylayout=""fullWidthTop""fixedWidth=""true"">"&vbCrLfxmlG1=xmlG1&"<pageTitle>MSDN中文网站</pageTitle>"&vbCrLfxmlG1=xmlG1&"<topContent>"&vbCrLfxmlG1=xmlG1&"<xhtml>"&vbCrLfxmlG1=xmlG1&"<SCRIPTLANGUAGE=""JavaScript"">"&vbCrLfxmlG1=xmlG1&"window.location="""&sContent&""";"&vbCrLfxmlG1=xmlG1&"</SCRIPT>"&vbCrLfxmlG1=xmlG1&"</xhtml>"&vbCrLfxmlG1=xmlG1&"</topContent>"&vbCrLfxmlG1=xmlG1&"</body>"&vbCrLfxmlG1=xmlG1&"</content>"'Setf=fs.createtextfile(sTarget,True,"UTF-8")'f.writelinexmlG1'f.CloseSetobjStream=CreateObject("ADODB.Stream")WithobjStream.Open.Charset="utf-8".Position=objStream.Size.WriteText=xmlG1.SaveToFilesTarget,2.CloseEndWithSetobjStream=NothingGenFile=1EndFunctionFunctionCreateDir(sRoot,sPath)AsStringDimfs,fSetfs=CreateObject("Scripting.FileSystemObject")Iffs.folderexists(sRoot&""&sPath)=TrueThenCreateDir=sRoot&""&sPathExitFunctionEndIfDimaFoldersDimiLevel,sLC,sCuraFolders=Split(sPath,"")'iLevel=UBound(aFolders)sCur=""ForiLevel=0ToUBound(aFolders)sCur=sCur&""&aFolders(iLevel)Iffs.folderexists(sRoot&sCur)=FalseThenfs.createfolder(sRoot&sCur)EndIfNextCreateDir=sRoot&""&sPathEndFunction

解决方案

解决方案二:
大概说一下也行呀,谢谢...

时间: 2024-11-03 02:40:35

哪们高手能给翻译一下这是什么意思,最好每行都说一下,小弟真的一点不懂,领导突然就给这么一个东西,谢谢了的相关文章

c++-求大神帮忙翻译一下几句程序,关于图书管理系统,顺便可以的话详细一点。谢谢(?_?)

问题描述 求大神帮忙翻译一下几句程序,关于图书管理系统,顺便可以的话详细一点.谢谢(?_?) #ifndef _LIBARY_H#define _LIBARY_H#include "appoint.h"#include "Manager.h"#include "Mysql_select.h"#include "Reader.h"#include "ways.h"class Libary{private: C

高手帮我翻译一下这段java代码》。翻译成C#

问题描述 publicStringencryptPWD(StringsPassword){bytecResult[]=newbyte[16];StringsResult="";try{MessageDigestmd=MessageDigest.getInstance("MD5");md.update(sPassword.getBytes());cResult=md.digest();for(inti=0;i<cResult.length;i++){if(cRe

请教高手,为websphere ND 6.1.0.0 打补丁时无法勾选补丁包是什么原因?很急。。。谢谢!

问题描述 版本信息:1.websphereND6.1.0.02.updateinstaller7.0.0.93.pak6.1.0-WS-WAS-LinuxX64-FP0000031.pak4.操作系统:redhatlinux5打补丁时,到选择相应补丁时,上面的pak为灰色,不可选,不能进行下去.但在另一台同样配置的机器上用同样的包已经安装成功.不知为何,请教高手.非常感谢! 解决方案 解决方案二:有人知道不?我的操作系统是64位,补丁包也是64位的,updateinstall也是64位的,怎么就

请问高手 谁能帮我整合这两套程序的代码 都是用C#连接SQL做的 其中内容不一致 之后我自行修改即可~

问题描述 毕业设计要做个MRP不过我就找到了MRP的部分和进销存系统的部分不过我发现它们两个合在一起就行了所以哪位朋友要能帮我这个忙的话不胜感激 解决方案 解决方案二:有人知道吗教教我也好啊--解决方案三:...给钱就有人帮你做解决方案四:要不就看你能给多少分?解决方案五:我在百度知道提问了http://zhidao.baidu.com/question/55342646.html百度知道上面给了130分的悬赏分是我所有的分数了--谢谢大家

深入理解JavaScript系列(10) JavaScript核心(晋级高手必读篇)_javascript技巧

适合的读者:有经验的开发员,专业前端人员. 原作者: Dmitry A. Soshnikov 发布时间: 2010-09-02 原文:http://dmitrysoshnikov.com/ecmascript/javascript-the-core/ 参考1:http://ued.ctrip.com/blog/?p=2795 参考2:http://www.cnblogs.com/ifishing/archive/2010/12/08/1900594.html 主要是综合了上面2位高手的中文翻译,

今日头条APP,北京字节跳动科技已经完成了红杉领投的1亿美元的C轮融资

你看到这篇文章的时候,今日头条APP,也就是北京字节跳动科技有限公司(以下称"字节跳动"),已经完成了红杉领投的1亿美元的C轮融资, 微博 同时参与跟投.张一鸣的"字节跳动"估值高达5亿美元. APP越来越值钱?2014年初,安卓应用搜索(现扩展为"移动内容搜索")APP豌豆荚B轮融资1.2亿美元.再往前, 百度 以近19亿美元收购91无线.还有,接近神话的, Facebook 宣布190亿美元收购Whatsapp. 用户数量决定估值的耀眼度.来

YUV格式详解

YUV是指亮度参量和色度参量分开表示的像素格式,而这样分开的好处就是不但可以避免相互干扰,还可以降低色度的采样率而不会对图像质量影响太大.YUV是一个比较笼统地说法,针对它的具体排列方式,可以分为很多种具体的格式.转载一篇对yuv格式解释的比较清楚地文章,也可以直接参考微软的那篇文章. 对于YUV格式,比较原始的讲解是MPEG-2 VIDEO部分的解释,当然后来微软有一个比较经典的解释,中文的大多是翻译这篇文章的.文章来源:http://msdn.microsoft.com/en-us/libr

全球知名美资外企诚聘软件工程师【内部推荐】【北京】(另送100分)

问题描述 公司:全球知名美资外企,总部在美国,在多个国家设立研发中心和分公司工作地点:北京JobDescription:1)BSorMSinComputerScienceorrelatedfieldofeducation2)3YearsoraboveProgrammingexperience3)ObjectOrientedAnalysisandDesignusingUML(OOAD-UML)4)FamiliarwithC/C++,C#,HTML,XML,RegEx5)FamiliarwithSQ

2011年年度十佳APP

在伴随着移动互联网逐渐的壮大,有越来越多在桌面互联网上占据了优势的公司,也逐步向移动终端渗透,从而推动他们庞大的用户群转向移动互联网.而在2011年,<新京报>盘点了眼中的十佳App应用. 在2011年的时候,那是中国移动互联网发展大爆发的一年:得益于中国3G网络的日渐普及加上智能机版本的更新换代,移动互联网的用户数是大幅度的增长.而那些诸多在桌面互联 网上占据优势的公司,也向移动终端渗透,从而把他们庞大的用户群对同转向移动互联网.在2011年年末,<新京报>3C周刊编辑部选出了十