中国DOS联盟论坛

中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:bbs.cn-dos.net

DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

» 游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助

 

<   <<   [1] [2] [3] [4] [5]  >>   >
作者:
标题: 【建议】写我们自己的IDE环境|1.17.8英文版发布! 上一主题 | 下一主题
AlexZhang
版主





积分 907
发帖 384
注册 2007-2-8
状态 离线
『第 16 楼』:  

注释e文因为中文打字不快(今年高考我语文才102份额~)
with掉省不了几行
Split完了好像没什么用,Text不支持多种颜色的,自己专门写一个
这种控件MS很麻烦
我的算法:
一个一个的找,找到一个处理一个,是最原始的方法
另外,我记得Split好像是在数据库里面见过,查了下Split函数
在MSDN里的东西,写的莫名其妙
返回一个下标从零开始的一维数组,它包含指定数目的子字符串。
语文没学好,看不懂~
有什么指导意见,请QQ联系我82570635或者GTalk cheungtifan@gmail.com
或者MSN(不推荐)cheungtifan@msn.com(压根没开)
----------------
是<b>cancel</b> 拼错了

[ Last edited by AlexZhang on 2007-7-27 at 10:32 AM ]

2007-7-27 10:29
查看资料  发送邮件  发短消息 网志  QQ   编辑帖子  回复  引用回复
slore
铂金会员





积分 5211
发帖 2478
注册 2007-2-8
状态 离线
『第 17 楼』:  

我语文才90多~~

不是用split

比如"echo 123"

循环

e不是分割符号继续,。。。发现空格(分割符号),然后就截取前面的得到echo在和关键字比较是的话着色,不是继续

2007-7-27 11:12
查看资料  发短消息 网志   编辑帖子  回复  引用回复
wudixin96
银牌会员





积分 1928
发帖 931
注册 2007-1-6
状态 离线
『第 18 楼』:  

呵呵,还是高考生啊,又前途啊

不过E文有待加强啊,语法不通的。

2007-7-27 11:18
查看资料  发短消息 网志   编辑帖子  回复  引用回复
AlexZhang
版主





积分 907
发帖 384
注册 2007-2-8
状态 离线
『第 19 楼』:  

语法不同正常
只要能表达意思就行了
注释不是给最终用户看的
是让自己知道应改干什么
今年考得青岛大学化学系

2007-7-27 15:43
查看资料  发送邮件  发短消息 网志  QQ   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7491
发帖 2672
注册 2005-9-2
状态 离线
『第 20 楼』:  

进度很快,不错不错。




C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2007-7-27 20:26
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
AlexZhang
版主





积分 907
发帖 384
注册 2007-2-8
状态 离线
『第 21 楼』:  

现在遇到一个问题,Find功能发现一些bug,正在修补中,所以又要等等。我会用我的最快的速度拿出一个版本

2007-7-28 08:25
查看资料  发送邮件  发短消息 网志  QQ   编辑帖子  回复  引用回复
AlexZhang
版主





积分 907
发帖 384
注册 2007-2-8
状态 离线
『第 22 楼』:  语法加亮

CODE:  [Copy to clipboard]
Private   Const   vbKeyWords   As   String   =   "echo,set,path,1,2,3,4,5,6,7,8,9,+,-,*,/,@,$,%,^,&,:"
'一些稀奇古怪的永远用不到的东西...
'过两天分类一下,今天手里没有IDE环境了,只是瞎写了一些东西,
'下午贴到vb上看看效果,以前的那个太麻烦,慢死了。
'这次用UE写的
Private   Const   Color1   As   Long   =   &H800000       '关键字颜色   
Private   Const   RemarkColor   As   Long   =   &H8000&             '注释颜色   
   
Sub vbCodeSTX(ByRef CodeInpt As RichTextBox)
          Dim vks()     As String
          Dim i     As Long, l       As Long
          Dim mloc     As Long, mloc2       As Long
          Dim oloc     As Long, olen       As Long
            
          l = LenB(CodeInpt.Text)
          If l = 0 Then Exit Sub
            
          oloc = CodeInpt.SelStart
          olen = CodeInpt.SelLength
          CodeInpt.Visible = False
            
          '处理关键字 第一种  (暂时只做一种)
          vks = Split(vbKeyWords, ",")
          For i = 0 To UBound(vks)
                  mloc = CodeInpt.Find(vks(i), 0, , rtfWholeWord)
                  Do While mloc >= 0
                          With CodeInpt
                                  .SelStart = mloc
                                  .SelLength = Len(vks(i))
                                  .SelColor = Color1
                                  .SelStart = mloc + Len(vks(i)) + 1
                          End With
                          '上面这一段比较好
                          mloc = CodeInpt.Find(vks(i), , l, rtfWholeWord)
                  Loop
          Next
            
          '处理注释   rem
          mloc = CodeInpt.Find("rem", 0)
          Do While mloc >= 0
                  CodeInpt.SelStart = mloc + 1
                  mloc2 = CodeInpt.Find(vbCrLf, , l)
                  If mloc2 > mloc Then
                          With CodeInpt
                                  .SelStart = mloc
                                  .SelLength = mloc2 - mloc
                                  If InStr(CodeInpt.SelText, Chr(34)) = 0 Then
                                          .SelColor = RemarkColor         '是注释行
                                  End If
                                  .SelStart = mloc2 + 1
                          End With
                  End If
                  mloc = CodeInpt.Find("'", , l)
          Loop
            
          CodeInpt.SelStart = oloc
          CodeInpt.SelLength = olen
          CodeInpt.Visible = True
End Sub
'bug一个 刚刚修正
'在修复一个bug

[ Last edited by AlexZhang on 2007-7-28 at 04:15 PM ]

2007-7-28 11:39
查看资料  发送邮件  发短消息 网志  QQ   编辑帖子  回复  引用回复
AlexZhang
版主





积分 907
发帖 384
注册 2007-2-8
状态 离线
『第 23 楼』:  

测试成功 在vb6精简版上

2007-7-28 11:54
查看资料  发送邮件  发短消息 网志  QQ   编辑帖子  回复  引用回复
AlexZhang
版主





积分 907
发帖 384
注册 2007-2-8
状态 离线
『第 24 楼』:  []

下载地址:
下载
放在上传空间里了...
都先评个分再走。
注意:bug肯定有,未知的bug可能让你的电脑司机:P概率极小
都试试。

2007-7-28 17:22
查看资料  发送邮件  发短消息 网志  QQ   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7491
发帖 2672
注册 2005-9-2
状态 离线
『第 25 楼』:  

建议字体用 Courier New

希望加上语法高亮。

幸苦了




C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2007-7-28 23:43
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
AlexZhang
版主





积分 907
发帖 384
注册 2007-2-8
状态 离线
『第 26 楼』:  

语法加亮作上去了,准备加上timer,5秒钟检测一次
Tahoma看起来好看一点我自己认为,不过Courier打字机字体
等距的,好像效果好一点。
在下一个版本会加入这些功能的。

2007-7-29 09:57
查看资料  发送邮件  发短消息 网志  QQ   编辑帖子  回复  引用回复
AlexZhang
版主





积分 907
发帖 384
注册 2007-2-8
状态 离线
『第 27 楼』:  

0.5版已大部分完成,但是debug模块有困难,谁愿意帮我写一下?

2007-7-30 15:06
查看资料  发送邮件  发短消息 网志  QQ   编辑帖子  回复  引用回复
qzwqzw
银牌会员

天的白色影子


积分 2338
发帖 632
注册 2004-3-6
状态 离线
『第 28 楼』:  

感觉5秒钟检测语法加亮有些别扭

现在的编辑器不都是文本更新后自动触发语法加亮吗?

2007-7-31 11:55
查看资料  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7491
发帖 2672
注册 2005-9-2
状态 离线
『第 29 楼』:  



  Quote:
Originally posted by qzwqzw at 2007-7-31 11:55:
感觉5秒钟检测语法加亮有些别扭

现在的编辑器不都是文本更新后自动触发语法加亮吗?

这个要求可能对LZ有点高了吧,呵呵。:D




C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2007-7-31 15:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
AlexZhang
版主





积分 907
发帖 384
注册 2007-2-8
状态 离线
『第 30 楼』:  

开发一刻也没有停止
如果想做到『立即』,可以把时间改得稍微短一些,或者直接
做到输入以后有空格立即检查
我认为『有空格立即检查』比较好
开发进行中,没有停止

2007-8-1 17:43
查看资料  发送邮件  发短消息 网志  QQ   编辑帖子  回复  引用回复
<   <<   [1] [2] [3] [4] [5]  >>   >
请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系我们 - 中国DOS联盟 ]


Powered by Discuz! © 2001-2011