VBA Do While 语句嵌套三层 最外层应用程序定义或对象定义错误，把最外层换成For句就没问题，为什么？

Do While Worksheets("sheet2").Cells(1, j) <>"" ’显示这里出现应用程序定义或对象定义错误

Do While Worksheets("sheet1").Cells(1, a) <>""

a = 1

第2句有问题，其中a没有赋初值，故cells(1,0)是错误的

应第3句提前至第2句

按照你的要求编写的获取最外层大括号内容的Java程序如下

import java.util.regex.Matcher

import java.util.regex.Pattern

public class GG {

 public static void main(String[] args) {

  String s="start1 {     a:'aaa',b:{b1:'bb1',b2:'bb2'},cc:'cc1',dd (good):{say good}                 },start2:{e:false,f:123},start3{g1,g2,g3}"

  String regex="start\\d+:?\\s*\\{(.+?)\\}(?=(,start\\d+:?)|$)"

  Pattern p=Pattern.compile(regex)

  Matcher m=p.matcher(s)

  while(m.find()){

   System.out.println(m.group(1))

  }

 }

}

Java正则表达式 start\\d+:?\\s*\\{(.+?)\\}(?=(,start\\d+:?)|$)

运行结果

     a:'aaa',b:{b1:'bb1',b2:'bb2'},cc:'cc1',dd (good):{say good}                 

e:false,f:123

g1,g2,g3

简单的可划分为 硬件、软件两层。

内核是硬件系统，是进行信息处理的实际物理装置。

最外层是使用计算机的人，即用户。

人与硬件系统之间的接口界面是软件系统，它大致可分为系统软件、支援软件和应用软件三层。

---