本帖最后由 zzz19760225 于 2025-1-1 09:10 编辑
vbs的变量
vbs的变量之间联系线
组合穷尽地图
地图上的路线选择
输入文本的内容载入变量
文本故事剧本剧情初期运行载入内存里运行
变量=字符串(指代编码赋值)‘指代编码交换为数量和内容,没有赋值无法运行
变量=字符变量+字符变量
变量字符串组合聚散- dim a,b,c
- b=b456
- c=c789
- a=b+c
- msgbox a
复制代码 结果输出0
不需要数值的字符串变量,组成结构关系后,然后二次赋值为数值,数量流量运行。一次抽象变量结构运行,二次数值流量运行。
b=b
c=c
b456=b456
c789=c789
变量等于自身就可以简单抽象化
但是不对啊,要将文字装进变量的,这样字符串都不显示了。字符串要加引号“”赋值。
b456="b456"
c789="c789"- dim a,b,c
- b456="b456"
- c789="c789"
- a=b+c
- msgbox a
- msgbox b456
- msgbox c789
复制代码 三次输出
如果什么都不赋值呢?
b=
c=
a=b+c- dim a,b,c
- b456=
- c789=
- a=b+c
- msgbox a
- msgbox b456
- msgbox c789
复制代码 报出错,无法运行。
将一个文本内容,代入变量容器单元?
人生生命实在,在一个假设一部分的模拟现实游戏中,进行各种不需要实际实物的游戏熟悉选择。选择里无善无恶和有善有恶,最终人生只有一次考核自由自选,只是多增加一些机动灵活的玩意玩具玩笑,放松面对而已。人生任何时候,你愿意面对生之存在和未知的活吗?我已有所准备,练习游戏百遍,我期待周期实践已知和未知,验证游戏所学。(或者一年一个学习实践的循环周期)
利用通用规律,将未来一个周期(看棋局三步棋的一步),琢磨其中的内容一部分,考古侦探一样,在实践中肯定这部分。这部分成为可流通内容,相对固定下来,再继续寻找可探测未来周期的内容。所谓历史周期律,只是破坏循环至一种叠加重压的债务病局,然后绝对化。而实际人类是可知流组合(为主或比例度),是可知可行可见的(从小到大,从单到多,从少到多,从具体一到抽象宏观广义一),可以看到看法清楚明白,这些是他们将组织失败责任摆脱的一种方式,神化唯心化。建立物质,万物,人为主方向,所谓钱,币,都是一种形式绝对化的假象当作眼镜,一切原本简单(也得透过已有惯性形式,把简化的组织结构找出来,以及简化也有极简的形式,必要形式是什么)。
百度“vbs读取文本输出”- Dim fso, f, text
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set f = fso.OpenTextFile("C:\path\to\your\file.txt", 1) ' 1 表示只读模式
-
- text = f.ReadAll
- WScript.Echo text
-
- f.Close
- Set f = Nothing
- Set fso = Nothing
复制代码 修改文本地址“D:\dos\vbs\1.txt”
可以输出
- Dim fso, f, text
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set f = fso.OpenTextFile("1.txt", 1) ' 1 表示只读模式
- text123 = f.ReadAll
- f.Close
- Set f = Nothing
- Set fso = Nothing
-
- WScript.Echo text123
复制代码 直接文本,变量后置,也是可以的。目的是文本内容装进变量,而文本的位置是一个空壳类存在(相对地址),只要放在同一文件夹容器里就可以,不需要具体的地址路径指示。
如将一个文件夹里的文件,批量搜素,对应变量批量载入变量呢。这些批量工作做完,是搭配变量单元的组合关系。字符替换,交换翻译。
人生的出生和或者的现状,比较衡量为穿越地图的一个圈层级一个阵列。然后通过穿越的地图,进行对比,产生已有相同想法和历史,以及各种类似类近的联系线,作为参考选择,丰富想法库。
孩子模仿家长,孩子模仿他人。书本时代,孩子通过书本丰富。电视时代,孩子通过电视丰富。网络信息时代,通过信息编程游戏地图丰富。这种游戏可以简化,家庭一般普通人,按照事进行组合穷尽,做成游戏,不需要类似私有化的法律,经济等,弄得复杂人不懂,然后别人听话的模式。从基本需求,是可以进行基本编程满足的,类似棋牌的定量,适度丰富就可以。十五亿人的基本够用信息丰富和基本实在自信,是可以站起来的,在舆论制造的舞台上沉不沉默都没有关系。
游戏概念这个集合,包括各种内容组装成游戏软件各种器具体单元(WIN和LINUX各种变量,都可以实现)。- '{
- Dim fso, f, text
- '{
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set f = fso.OpenTextFile("1.txt", 1) ' 1 表示只读模式
- '{
- text123 = f.ReadAll
- '}
- f.Close
- '}
- Set f = Nothing
- Set fso = Nothing
- '}
- WScript.Echo text123
复制代码 在注释里增加相对关系符号,进行切割组合。
假设已有可运行的程序是机器,拆散了装不上去,就再回到初始的机器样子。
微观,中观,宏观的三层面变量单元组合地图,数组对应多个地图。
王族供养,人民家园的家人基本效率供养,善恶和信用,罪恶分别出来的剔除。养十五亿人的一部分和全部比例度,只养一天,年,生的不同可选。有物质养与没有物质养。有物质机动比例数量的养,收入大于支出的有余养。亏损不养。比例养。老幼孕残里的某一个需要,这些里还可以发展轻劳动,村社看顾一下,有事喊一声,通知一下。失业和工作会,工作局,学习工作=投入如何简化已有知识信息的学习方法方式,联系实习,考核等丰富。集中人,集中人使用人的劳动,人的主观主动劳动量,这些流量就是发展的能量。怎么换成模拟钱币,基本原理,钱币就是人生和活的劳动量。劳动能量之外的物质联系包裹,长远劳动的信息技术知识叠加。短近劳动,物质劳动,长远劳动实践经验教训丰富后浓缩传承的技术知识劳动。应该是很多需要劳动的地方,但是客观现实是缺少这种丰富需求。从压住历史经济阵脚的看法,适度的工作量也是对的。但是工作劳动者需求量决定再私有化手里,这是问题的根源,是私有化经济理论的历史效应。怎么将历史公有化工作劳动库的需求,建立成有序的库存规划计划历史阶段和年代的劳动清单。有一种情况,是明明人人都同意简单需要的事,但是就是无法去做和做成,会有更扯皮的人去阻止事完成,这种状态很普遍。在没有好的办法解决前,可以当作是基本出发层面,要习以为常准备专门的一套招式套路,相对简化减轻阻力。正侧两面,一面是利益化包括这些事,这些事是可以换成钱的东西,为了换钱,促进事完成的侧面。另一面是家概念完成家事的正面,在做事的惯性中,安排进去,顺着惯性一并做了。
工业园区的污水化学组合地图,针对申请的排污管道,进行分解化合反应准备,通用管道容器与对应变化的化合内容。楼房顶上的化工气罩,将化学物质内容分类集中起来化合处理。水和气
以化学知识为操作内容,经济园区治理经营的游戏。提出解决办法,做成产品,立项目收钱,一次付款,成本首付加后期利息,分期付款。
批量建立变量和批量对应文本赋值,规律变量名与文本名。
百度“vbs批量建立变量”- Dim i
- For i = 1 To 10
- Execute("Dim var" & i)
- Execute("var" & i & " = i")
- Next
复制代码 批量建立变量和赋值后,输出变量。- Dim i
- For i = 1 To 10
- Execute("Dim a" & i)
- Execute("a" & i & " = i")
- Next
- msgbox a1
- msgbox a10
复制代码 可以的
Execute=执行
读取文本建立的学生信息表,输出文本保存。学生表广义通用化,为生活表。
百度“vbs制作学生信息”- ' 创建一个学生类
- Class Student
- Private pName
- Private pAge
- Private pGrade
-
- ' 构造函数
- Public Sub Class_Initialize
- pName = ""
- pAge = ""
- pGrade = ""
- End Sub
-
- ' 设置学生信息
- Public Sub SetInfo(name, age, grade)
- pName = name
- pAge = age
- pGrade = grade
- End Sub
-
- ' 获取学生信息字符串
- Public Function GetInfoString()
- GetInfoString = "Name: " & pName & ", Age: " & pAge & ", Grade: " & pGrade
- End Function
- End Class
-
- ' 创建学生对象
- Dim student
- Set student = New Student
-
- ' 获取用户输入
- Dim name, age, grade
- name = InputBox("请输入学生姓名:")
- age = InputBox("请输入学生年龄:")
- grade = InputBox("请输入学生年级:")
-
- ' 设置学生信息
- student.SetInfo name, age, grade
-
- ' 将学生信息写入文本文件
- Dim fso, textFile
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set textFile = fso.CreateTextFile("C:\students.txt", True)
- textFile.WriteLine student.GetInfoString()
- textFile.Close
-
- ' 清理对象
- Set textFile = Nothing
- Set fso = Nothing
- Set student = Nothing
-
- WScript.Echo "学生信息已保存到 C:\students.txt"
复制代码 出错信息“名称重定义”?
排序数字,弄一个背景是格子的图片,伪装成表格底子。上面显示的数字间隔分减号-与加号+,加号代表还有储存起来的数量。
---123--+456--+789
表格里的123数列全部显示,456和789还有隐藏的储存数量。对齐和提示数量。在前面可以有个位数提示,储存的数量有几个位数。
---123-2+456-9+789
---123-2-456-9+789(9位数上面还有位数,就不显示了,至少要这9位用光再说)
---123-2-456-0+789(用0代表十10)
或者用汉字
---123-二-456-十+789
---123-贰-456-拾+789
一段一段依次添加尝试验证可行执行,第二段的student后面加1区别。- Dim student
- Set student = New Student
- student.SetInfo name, age, grade
- textFile.WriteLine student.GetInfoString()
- Set student = Nothing
复制代码 一共5个地方student修改为student1,可以顺利运行。
无器本能劳动,天才精英能人有品德者,后天学习劳动,制造用器,器能人民,器能的组织,生活资料需求,人民劳动库,人民资本总量流量,劳动实在与货币钱币的量化交换,物价价格交换率,历史道路阶段年代圈层级人物相对量,几者的关系。(为什么没有一共历史清清楚楚明明白白的表格清单,人人可以通过清单简单看透一切,更好的去选择)
人眼,历史眼睛,眼镜,放大镜,显微镜,望远镜,天文时空望远镜,历史望远和微观时空圈层级里的像素图形,印象,模糊,逐渐清楚,细节清晰可见。理论与实践的差异差别,绝对化的事理论和情,作为名义,代替客观存在的差异差别,这就是无赖流氓,历史风闻清谈官,官僚挂羊头卖狗肉指鹿为马的一个原因?应该补上,挂羊头卖狗肉和指鹿为马,与绝对化名义否定客观现实实践,两者是有本质区别的。不同时空的看看法,与空间象视觉变形的文艺绘画技术作品联系,与几何形象学关联。艺术与科学在技术上是一体的,归于同一个实在本体的各种形式衣服演化,这些演化变化万法归宗,所以互相有内在关系,分散看好似吓了一跳,我的神啦,这么巧合(括号:假设这种情况可能不是巧合,是广义宏观名实关系。那么这个名是指什么呢,人看看到看法和想想到想法,做做法做到的交换流通过程变了形?光干涉的观察问题,属于人下锅的内容和方式顺序不对?)。 |