捕获块字符串/数字验证

Question

在catch区块中，我想打印输入有效卡号，如果有人进入了 字符串或小于13或大于16的数字。

我刚刚添加了numberformatexception但是如果我输入一个字符串或一个小于13或大于16的数字，它什么都不做。

如何在此处获得例外？此代码用于验证信用卡。我只需要在try catch块中提供帮助

train_index <- sample(1:nrow(Bayes_data_women), 0.8 * nrow(Bayes_data_women))
test_index <- setdiff(1:nrow(Bayes_data_women), train_index)
train <- Bayes_data_women[train_index, -15]
test <- Bayes_data_men[test_index, -15]

model_women <- naiveBayes(match ~ ., data = train)
default_pred <- predict(model_women, newdata=test)
table(default_pred, test$match,dnn=c("Prediction","Actual"))

Answer 1

如果要抛出异常，则必须将其包含在代码中。您可以通过在您希望它发生的位置添加“throw new NumberFormatException()”来实现它。

无论如何，在你描述的情况下抛出异常并不是最好的主意，因为抛出异常会阻止程序以“正常”方式运行。我建议使用“if”语句来检查输入 - 如果输入满足你，你继续，但如果没有 - 你提供下一个输入（周围提到的无限循环“if “语句，在完成正确输入时结束其工作）或仅仅写入错误消息。