在Oracle中，可以使用SUBSTR函数来截取字符串，并使用循环结构来重复执行截取操作。以下是一个示例代码：

DECLAREstr VARCHAR2(100) := 'Hello World';len NUMBER := LENGTH(str);-- 获取字符串的长度i NUMBER := 1;BEGINWHILE i <= len LOOPDBMS_OUTPUT.PUT_LINE(SUBSTR(str, i, 1));-- 输出每个字符i := i + 1;END LOOP;END;

上述代码会将字符串’Hello World’从左到右逐个字符截取，并通过DBMS_OUTPUT.PUT_LINE函数输出每个字符。可以通过修改str变量的值来截取不同的字符串。