pb筆記2

 //兵絏计
        ls_text = ls_text +','
       ll_len = len(ls_text)
        ll_num = 0
        ldc_pinu061_02 = 0
      Do
           ll_pos = pos(ls_text,',')
                  ls_temp = Trim(left(ls_text,ll_pos - 1))
                  ls_text = Right(ls_text,len(ls_text) - ll_pos)
                  If ls_temp <> "" And Not Isnull(ls_temp) Then
                      ll_pos1 = pos(ls_temp, '-')
                      ls_beg  = Trim(Left(ls_temp, ll_pos1 - 1))
                      ls_end  = Trim(Right(ls_temp, len(ls_temp) - ll_pos1))
                      If Len(ls_beg) <> 10 Then
                            of_MessageBox(ls_beg+"兵絏ゲ斗10,叫琩!")
                          Sqlca.of_Rollback();
                          Return 1
                      End If
                      If Len(ls_end) <> 10 Then
                          of_MessageBox(ls_end+"兵絏ゲ斗10,叫琩!")
                          Sqlca.of_Rollback();
                          Return 1
                      End If
                      ll_num1 = Len(ls_beg)
                      a  = 1
                      b  = ll_num1
                      For i = 2 To ll_num1
                            ls_b1 = mid(ls_beg,i,1)
                          ls_e1 = mid(ls_end,i,1)
                          If ls_b1 <> ls_e1 Then
                              If (ls_b1 = '0' or ls_b1 = '1' or ls_b1 = '2' or ls_b1 = '3' &
                                 or ls_b1 = '4' or ls_b1 = '5' or ls_b1 = '6' or ls_b1 = '7' &
                                 or ls_b1 = '8' or ls_b1 = '9') and (ls_e1 = '0' or ls_e1 = '1' &
                                 or ls_e1 = '2' or ls_e1 = '3' or ls_e1 = '4' or ls_e1 = '5' &
                                 or ls_e1 = '6' or ls_e1 = '7' or ls_e1 = '8' or ls_e1 = '9') Then
                             Else
                                 of_MessageBox('材'+ String(li_row) + '︽兵絏腹块琌タ絋!')
                                 Sqlca.of_Rollback();
                                 Return 1
                             End If
                             a = i
                              b = ll_num1 - a + 1
                              Exit
                          End if
                       Next
                       If ls_beg = ls_end Then
                           ll_num = 1
                       Else
                          ll_num = dec(mid(ls_end, a, b)) - dec(mid(ls_beg, a, b)) + 1
                       End If
                        ldc_pinu061_02 = ldc_pinu061_02 + ll_num
                  If ls_beg > ls_end Then
                           of_MessageBox('材'+ String(li_row) + '兵絏癬ù!')
                           Sqlca.of_Rollback();
                           Return 1
                       End If
                  End If
              Loop Until (ls_text = '' Or IsNull(ls_text))
      End If