Crystal Reports  

Do °j°é (Basic »yªk)

Do °j°é¥i¥Î¨ÓµL­­¨î¦a°õ¦æ³¯­z¦¡ªº©T©w°Ï¶ô¡C

¥|ºØ¤£¦PÃþ«¬ªº Do °j°é

Do °j°éªºÃþ«¬ »¡©ú ½d¨Ò
Do While ?Loop Do While ...Loop ·|Åçºâ±ø¥ó¡A¦pªG±ø¥ó¬° True¡A´N±µµÛÅçºâ±ø¥ó¤§«áªº³¯­z¦¡¡C

Åçºâµ²§ô«á¡A¦¹°j°é·|Ä~ÄòÅçºâ±ø¥ó¡A¦Ó¦pªG±ø¥ó¬° True¡A¤S·|¦A¦¸Åçºâ³¯­z¦¡¡C

³o­Óµ{§Ç·|Ä~Äò­«½Æ¶i¦æ¡Aª½¨ì±ø¥ó¬° False ®É¡C

Do While ±ø¥ó
³¯­z¦¡
Loop
Do Until ...Loop Do Until ...Loop »P Do While ...Loop Ãþ¦ü¡A¤£¦P¤§³B¦b©ó Do Until Loop ·|¤@ª½¶i¦æ³¯­z¦¡ªºÅçºâ¡Aª½¨ì±ø¥óÅçºâµ²ªG¬° True¡A¦Ó¤£¬O·í±ø¥ó¬° True ®É¶i¦æÅçºâ¡C
Do Until ±ø¥ó
³¯­z¦¡
Loop
Do ...Loop While ¤£½×¤°»ò±¡ªp¤§¤U¡ADo ...Loop While ¥u·|Åçºâ¤@¦¸³¯­z¦¡¡C

µM«áÅçºâ±ø¥ó¡A¦pªG±ø¥ó¬° True¡A«h¦AÅçºâ¤@¦¸³¯­z¦¡¡C³o­Óµ{§Ç·|Ä~Äò­«½Æ¶i¦æ¡Aª½¨ì±ø¥ó¬° False ®É¡C

Do
³¯­z¦¡
Loop While ±ø¥ó
Do ...Loop Until »P Do ...Loop While Ãþ¦ü¡A¤£¦P¤§³B¦b©ó Do ... Loop Until ¦bÅçºâ¥X±ø¥óµ²ªG¬° True «e¡A³£·|¤@ª½Åçºâ³¯­z¦¡¡C
Do
³¯­z¦¡
Loop Until ±ø¥ó
ª`·N   Do °j°é¤ä´© Exit Do ³¯­z¦¡¥ß§Y¸õ¥X°j°é¡CExit Do ³¯­z¦¡»P For/Next °j°é¤¤ªº Exit For Ãþ¦ü¡C

Do While ...°j°é¤½¦¡½d¨Ò

¥H¤Uªº½d¨Ò·|·j´M¿é¤J¦r¦ê¤¤¥X²{ªº²Ä¤@­Ó¼Æ¦r¡C°²¦p§ä¨ì¼Æ¦r¡A·|¶Ç¦^¥¦¦b¦r¦ê¤¤ªº¦ì¸m¡A§_«h·|¶Ç¦^ –1¡C¦b¦¹½d¨Ò¤¤¡A±N¿é¤J¦r¦ê©ú½T¦a³]©w¬°¦r¦ê±`¼Æ¡A¦ý¬O¤]¥i¥H±N¥¦³]©w¬°µ¥©ó¦r¦ê«¬§O¸ê®Æ®wÄæ¦ì¡C

¨Ò¦p¡A¿é¤J¦r¦ê¡uThe 7 Dwarves¡v®É¡A¤½¦¡·|¶Ç¦^ 5¡A¤]´N¬O¼Æ¦r 7 ªº¦ì¸m¡C

Dim inString
inString = "The 7 Dwarves"
Dim i, strLen
i = 1
strLen = Len (inString)
formula = -1
Do While i <= strLen And formula = -1
Dim c As String
c = Mid (inString, i, 1)
If IsNumeric (c) Then formula = i
i = i + 1
Loop

½Ð°Ñ¾\

While °j°é