查看: 948|回复: 21
新人求助，一维数组如何通过循环实现以下效果
阅读权限10
在线时间 小时
A1:A10分别为10个数字，将其放入一个一维数组中，通过定义变量循环10次如何让这10个数字变为
这样的效果，谢谢大神指教！
阅读权限50
在线时间 小时
做个附件出来看看吧。
阅读权限95
在线时间 小时
Sub test()
& & n = 10
& & ReDim a$(1 To n) '定义1个n=10的一维数组
& & For i = 1 To n '循环n=10次
& && &&&a(i) = &'& & String(i - 1, &0&) & &1& & String(n - i, &0&)
& & Next
& & [a1].Resize(n) = WorksheetFunction.Transpose(a) '输出结果到工作表
End Sub
复制代码
阅读权限95
在线时间 小时
Sub text()
& & Dim arr(1 To 10) As String, i%, str$
& & str = &&
& & For i = 1 To 10
& && &arr(i) = Left(str, i - 1) & Replace(str, &0&, &1&, Start:=i, Count:=1)
& & Next
& & Columns(1).NumberFormatLocal = &@&
& & Range(&A1&).Resize(10, 1) = Application.Transpose(arr)
End Sub复制代码
阅读权限95
在线时间 小时
string(i-1,&0&)&&是个什么鬼？
PS：感谢香川老师，之前一直以为String只是一个数据类型，查看帮助才知道，原来它也是一个函数，Oh,my god
阅读权限90
在线时间 小时
& & Dim s$, i&, bArr() As Byte
& & bArr = &&&&
& & For i = 0 To 10 - 1
& && &&&bArr(i * 2) = bArr(i * 2) + 1
& && &&&s = bArr
& && &&&Debug.Print s
& && &&&bArr(i * 2) = bArr(i * 2) - 1
阅读权限90
在线时间 小时
& & Const n = 10
& & Dim s$, i&, bArr() As Byte
& & bArr = String(n, &0&)
& & For i = 0 To (n - 1) * 2 Step 2
& && &&&bArr(i) = bArr(i) + 1
& && &&&s = bArr
& && &&&Debug.Print s
& && &&&bArr(i) = bArr(i) - 1
阅读权限95
在线时间 小时
string(i-1,&0&)&&是个什么鬼？
PS：感谢香川老师，之前一直以为String只是一个数据类型，查看帮助才 ...
换一种方法：
Mid直接置换法：
Sub test2()
& & n = 10
& & ReDim a$(1 To n)
& & s = String(n, &0&)
& & For i = 1 To n
& && &&&t = s
& && &&&Mid(t, i, 1) = &1&
& && &&&a(i) = t
& & Next
& & [a1].Resize(n).NumberFormat = &@&
& & [a1].Resize(n) = WorksheetFunction.Transpose(a)
End Sub
复制代码
其中，Mid(t, i, 1) = &1& 这一句最为关键。
是把等左式边、字符串t中 对应第 i 位置 的 1个字符，直接置换为 = 右边的字符。
阅读权限90
在线时间 小时
& & & & & & & &
本帖最后由 coby001 于
12:59 编辑
就这样了&&，，，，终结版~
& & Const n = 10
& & Dim i&, bArr() As Byte, sArr$(n - 1, 0)
& & bArr = String(n, &0&)
& & For i = 0 To (n - 1) * 2 Step 2
& && &&&bArr(i) = bArr(i) + 1
& && &&&sArr(i \ 2, 0) = bArr
& && &&&bArr(i) = bArr(i) - 1
& & [a1].Resize(n) = sArr
优秀作品。
阅读权限95
在线时间 小时
本帖最后由 香川群子 于
13:09 编辑
& & Dim s$, i&, bArr() As Byte
& & bArr = &&&&
把你的代码简化一下：
Sub test3()
& & n = 10
& & ReDim a$(1 To n), b(n * 2 - 1) As Byte
& & b = String(n, &0&)
& & For i = 0 To n * 2 - 1 Step 2
& && &&&b(i) = 49
& && &&&a(i / 2 + 1) = b
& && &&&b(i) = 48
& & Next
& & [a1].Resize(n).NumberFormat = &@&
& & [a1].Resize(n) = WorksheetFunction.Transpose(a)
End Sub
原理：字符串可以直接以byte形式拆分为byte数组。
当然，byte数组也可以直接合并返回字符串。
其中，每一个字符都是Asc()函数结果拆分为2个0-255的 16进制数。
Asc(0)=48&&即 0 & 48 实际在byte数组中是反向的，所以是 48,0
Asc(1)=49&&即 0 & 49 实际在byte数组中是反向的，所以是 49,0
最新热点 /1
当当网书香节，ExcelHome图书满200-100，满400-200……，活动即日起至4月23日，莫失良机！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师新手园地& & & 硬件问题Linux系统管理Linux网络问题Linux环境编程Linux桌面系统国产LinuxBSD& & & BSD文档中心AIX& & & 新手入门& & & AIX文档中心& & & 资源下载& & & Power高级应用& & & IBM存储AS400Solaris& & & Solaris文档中心HP-UX& & & HP文档中心SCO UNIX& & & SCO文档中心互操作专区IRIXTru64 UNIXMac OS X门户网站运维集群和高可用服务器应用监控和防护虚拟化技术架构设计行业应用和管理服务器及硬件技术& & & 服务器资源下载云计算& & & 云计算文档中心& & & 云计算业界& & & 云计算资源下载存储备份& & & 存储文档中心& & & 存储业界& & & 存储资源下载& & & Symantec技术交流区安全技术网络技术& & & 网络技术文档中心C/C++& & & GUI编程& & & Functional编程内核源码& & & 内核问题移动开发& & & 移动开发技术资料ShellPerlJava& & & Java文档中心PHP& & & php文档中心Python& & & Python文档中心RubyCPU与编译器嵌入式开发驱动开发Web开发VoIP开发技术MySQL& & & MySQL文档中心SybaseOraclePostgreSQLDB2Informix数据仓库与数据挖掘NoSQL技术IT业界新闻与评论IT职业生涯& & & 猎头招聘IT图书与评论& & & CU技术图书大系& & & Linux书友会二手交易下载共享Linux文档专区IT培训与认证& & & 培训交流& & & 认证培训清茶斋投资理财运动地带快乐数码摄影& & & 摄影器材& & & 摄影比赛专区IT爱车族旅游天下站务交流版主会议室博客SNS站务交流区CU活动专区& & & Power活动专区& & & 拍卖交流区频道交流区
白手起家, 积分 21, 距离下一级还需 179 积分
论坛徽章:0
我用的 tcsh
现有文件 test.txt 只有一行 aa 3b adf aljl bagad bb
数组 arg 中的元素都在test.txt中， 比如，aa bb
结果：想要从test.txt 删除arg中的元素 得到 3b adf aljl bagad
感谢大家啊
&&nbsp|&&nbsp&&nbsp|&&nbsp&&nbsp|&&nbsp&&nbsp|&&nbsp
家境小康, 积分 1980, 距离下一级还需 20 积分
论坛徽章:25
[ 本帖最后由 zxy 于
22:38 编辑 ]
bash的tcsh的不会:
arg=(aa bb)
echo ${arg[*]}
awk -v k=&${arg[*]}& '{split(k,b,& &);for (i=1;i&=length(b);i++)&&for(j=1;j&=NF;j++) {if ($j==b[i]) $j=&&} print $0}' file
3b adf aljl bagad
小富即安, 积分 3308, 距离下一级还需 1692 积分
论坛徽章:13
a=(aa 3b adf aljl bagad bb)
b=$(sed &s/ /|/& &&&${b[@]})
a=($(gsed -r &s/$b//g& &&&${a[@]}))
echo ${a[@]}新手求助一维数组拆分问题 - LabVIEW论坛 -
中国电子技术论坛 -
最好最受欢迎电子论坛!
后使用快捷导航没有帐号？
新手求助一维数组拆分问题
09:04:09　　
labview新手求助：一个一维数组，可能的数值范围在200-900之间，但是每次实际处理的一维数组具体范围不确定，需要按百位数分成七个新数组（也有可能少于七个），我想编写一种适合于任何情况的程序，但不知道为什么我编写出的程序执行之后总也跑不完。
09:13:27　　
要求助首先要把你写的程序框图传上来吧
助理工程师
10:58:32　　
就是200-900的随机数吧？但我不知道为什么分成七组？如果是百分位的话2-9也起码是8组？按你的意思应该是百分位的数去分组
11:24:51　　
都没看懂你说什么。表态一点都不明确。200-900 随机数&&如果从来没有出现800以后的数那就出现6个组。剩下那两个组你可以加个默认值，比如0
助理工程师
13:41:32　　
我也没看明白
我也没看明白
CellWise周军
15个问题&&&&&&&&3082个浏览
13个问题&&&&&&&&16201个浏览
6个问题&&&&&&&&6359个浏览
Powered by}