分享
 
 
 

CoderHelpr 是怎样实现简单的代码对齐的?

王朝c#·作者佚名  2006-12-17
窄屏简体版  字體: |||超大  

CoderHelpr 是怎样实现简单的代码对齐的?

CoderHelpr 是怎样实现简单的代码对齐的? CoderHelpr 是怎样实现简单的代码对齐的?

注意:此代码无法很好的完成代码的自动对齐.在一些特殊的代码语句.将会导致程序操作结果乱上加乱.但是要注意的是.不会破坏任何代码.一般,此代码可以满足基本的代码对齐.

Public Sub AutoInd(cm As CodeModule)

Dim Tmp As String

Dim spadd As String

Dim spJian As String

Dim sp As Long

Dim n As Long

spJian = 'End,Loop''

On Error Resume Next

Dim rm As String

For n = 1 To cm.CountOfLines

Tmp = Trim(GetLine(cm, n))

rm = ''

If InStr(Tmp, ''') > 0 Then

rm = Mid(Tmp, InStr(Tmp, '''))

Tmp = Mid(Tmp, 1, InStr(Tmp, ''') - 1)

End If

If HaveAddTxt(Tmp) = True And HaveJianTxt(Tmp) = True Then

Tmp = Space(sp) + Trim(Tmp)

SetLine cm, n, Tmp + rm

'Debug.Print sp, Tmp

ElseIf HaveAddTxt(Tmp) = True Then

Tmp = Space(sp) + Trim(Tmp)

SetLine cm, n, Tmp + rm

'Debug.Print sp, Tmp

'此处放置类型 If xxx>bbb Then Exit Sub 'dfsdfasd

'此类行符合HaveAddTxt,但是不可以使得下行缩进,

sp = setifline(Tmp) '

sp = sp + 4

Tmp = Space(sp) + Trim(GetLine(cm, n + 1))

SetLine cm, n + 1, Tmp + rm

'Debug.Print sp, Tmp

ElseIf HaveJianTxt(Tmp) = True Then

sp = sp - 4

Tmp = Space(IIf(sp > 0, sp, 0)) + Trim(Tmp)

SetLine cm, n, Tmp + rm

'Debug.Print sp, Tmp

Else

Tmp = Space(sp) + Trim(Tmp)

SetLine cm, n, Tmp + rm

'Debug.Print sp, Tmp

End If

Next n

End Sub

Public Function setifline(sline As String) As Long

'测试时请在立即窗口中执行此行.

'? setifline( 'If xxx>fff Then'dfgsdf ')

Dim locthen As Long, tx As String, locrem As Long

Dim Tmp As String

Tmp = sline

If InStr(Tmp, 'If') > 0 Then

locthen = InStr(Tmp, ' Then') + 5

tx = Mid(Trim(Tmp), locthen)

locrem = InStr(tx, ''')

If locrem > 0 Then

tx = Mid(tx, 1, locrem - 1)

End If

tx = Trim(tx)

If tx <> '' Then

setifline = -4

End If

End If

End Function

Function HaveAddTxt(Code As String) As Boolean

Dim spadd As String, ary() As String

Dim sx As Variant

spadd = ' Sub, Function,With,If,Select,Do,For'

ary = Split(spadd, ',')

For Each sx In ary

HaveAddTxt = InStr(Code, sx + ' ') > 0

If HaveAddTxt = True Then Exit For

Next

End Function

Function HaveJianTxt(Code As String) As Boolean

Dim spadd As String, ary() As String

Dim sx As Variant

spadd = 'End ,Loop ,Next'

ary = Split(spadd, ',')

For Each sx In ary

HaveJianTxt = Mid(Trim(Code), 1, Len(sx)) = sx

If HaveJianTxt = True Then Exit For

Next

End Function

Public Function GetLine(cm As CodeModule, nLine As Long) As String

GetLine = cm.Lines(nLine, 1)

End Function

Public Function SetLine(cm As CodeModule, nLine As Long, Text As String)

On Error Resume Next

cm.ReplaceLine nLine, Text

End Function

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有