Xin các anh em chỉ giúp : Để in 1 xâu ký tự đã biết trước (VD "123456789") nhưng cho phép chèn giữa các ký tự đó các khoảng trắng thì viết lệnh như thế nào cho nhanh và gọn ( để có kết quả như "1 2 3 4...").
Xin cảm ơn!
Xin các anh em chỉ giúp : Để in 1 xâu ký tự đã biết trước (VD "123456789") nhưng cho phép chèn giữa các ký tự đó các khoảng trắng thì viết lệnh như thế nào cho nhanh và gọn ( để có kết quả như "1 2 3 4...").
Xin cảm ơn!
Gửi bạn Tungvv
Bạn dùng thử đoạn code này nhé
*-----------------
xaukytu='123456789'
x=3
nXau=LEN(Allt(xaukytu))
xaukytu=Allt(STUFF(xaukytu,2,0,' '))
FOR i=1 TO nXau
xaukytu=STUFF(xaukytu,i+x,0,' ')
x=x+1
Endf
*-----------------
Chào bạn Luu_luu
Cám ơn lời giải thích của bạn về XLS / XL5 / XL8
Vấn đề còn lại tôi tự tìm hiểu thêm
Chào thân ái.
Character
Được sửa bởi Character lúc 17:16 ngày 16-02-2011
Gửi bạn Tungvv
Bạn dùng thử đoạn Code này nhé
*--------------------------------------------
xaukytu='Character tra loi Tungvv ve chen them tu 1 den nhieu khoang trang giua cac ky tu'
nXau=LEN(Allt(xaukytu))
x=1
nkhoangtrang=2 && nếu số khoảng trắng cần chèn (giữa các ký tự) là 2, (hoặc nếu cần chèn nhiều khoảng trắng hơn nữa thì tăng số 2 này lên thành 3, hoặc 4, hoặc 5 …)
xaukytu=Allt(STUFF(xaukytu,LEN(Allt(xaukytu)),0,SP ACE(nkhoangtrang)))
FOR i=1 TO nXau-2
xaukytu=STUFF(xaukytu,LEN(Allt(xaukytu))-(nkhoangtrang*i)-x,0,SPACE(nkhoangtrang))
x=x+1
Endf
*--------------------------------------------
Nếu chưa đúng ý của bạn thì cho tôi biết nhé.
Chúc bạn thành công. Chào bạn
Character
Về kết quả thì như nhau , nhưng mình nghĩ thế này có vẻ dễ hiểu hơn chút .
Code:private m.x, m.i , m.khoang , m.kq m.x = [abcxyz] &&& chuoi truyen vao m.kq = [] && ket qua m.khoang = 3 && Space m.x = alltrim(m.x) For i = 1 to len( m.x ) m.kq = m.kq + Substr(m.x,i,1) + iif( i = len(m.x) , [], space(m.khoang) ) Endfor wait wind m.kq
Thêm cách nữa:
ch = "123456789"
_len = LEN(ch)
_kt = " "
i = 2
DO WHILE i<=_len
ch = STUFF(ch,i,0,_kt)
_len = LEN(ch)
i = i + 2
ENDDO
MESSAGEBOX(ch)
xem code này :
a=[123456789]
b=[]
c=1 && biến này thay đổi được
for i=1 to LEN(ALLT(a))
b=b+subs(a,i,1)+spac(c)
endfo
Chào các Bác, Mong các Bác giúp dùm
Mình muốn thiết kế chương trình Quản lý thi cho nhiều kỳ thi, mỗi kỳ thi khi khai báo: mã kỳ thi xong chương trình sẽ tự tạo 1 thư mục mang tên mã kỳ thi, trong thư mục này sẽ chứa các file .DBF của 1 kỳ thi. Nay nhờ các bác giúp dùm sử dụng lệnh như thế nào để khi khai báo mã kỳ thi thì chương trình sẽ tự tạo thư mục với tên thư mục là mã kỳ thi vừa khai báo, trong thư mục sẽ chứa các file .DBF của 1 kỳ thi (Các file này đực tạo trước lưu trong thư mục của chương trình). Khi chọn thư mục cho kỳ thi nào thì chương trình tự đọc các file .DBF trong thư mục của kỳ thi đó. Mong các bác giúp dùm. Trân trọng.
Bookmarks