Trang 127 / 229 FirstFirst ... 122124125126127128129130132 ... LastLast
Hiển thị kết quả từ 1,261 đến 1,270 / 2281
  1. #1261
    Tham gia
    01-02-2008
    Bài viết
    59
    Like
    0
    Thanked 12 Times in 12 Posts
    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!

  2. #1262
    Tham gia
    16-01-2011
    Bài viết
    66
    Like
    3
    Thanked 30 Times in 25 Posts
    Quote Được gửi bởi tungvv View Post
    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

  3. #1263
    Tham gia
    01-02-2008
    Bài viết
    59
    Like
    0
    Thanked 12 Times in 12 Posts
    Quote Được gửi bởi Character View Post
    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
    *-----------------
    Character
    Cám ơn bạn nhiều, đã dùng đc rồi, nhưng nếu muốn thêm nhiều hơn các khoảng trắng nữa thì làm như thế nào bạn ?. Mình đã thử điều chỉnh các thông số trong câu lệnh nhưng kq là các khoảng trắng ko bằng nhau.
    xem lại tý giúp mình với nhé. Cám ơn !

  4. #1264
    Tham gia
    16-01-2011
    Bài viết
    66
    Like
    3
    Thanked 30 Times in 25 Posts

    Chèn thêm từ 1-n khoảng trắng giữa các ký tự

    Quote Được gửi bởi tungvv View Post
    Cám ơn bạn nhiều, đã dùng đc rồi, nhưng nếu muốn thêm nhiều hơn các khoảng trắng nữa thì làm như thế nào bạn ?. Mình đã thử điều chỉnh các thông số trong câu lệnh nhưng kq là các khoảng trắng ko bằng nhau.
    xem lại tý giúp mình với nhé. Cám ơn !

    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

  5. Thành viên Like bài viết này:


  6. #1265
    Tham gia
    30-06-2010
    Bài viết
    200
    Like
    5
    Thanked 23 Times in 20 Posts
    Quote Được gửi bởi tungvv View Post
    Cám ơn bạn nhiều, đã dùng đc rồi, nhưng nếu muốn thêm nhiều hơn các khoảng trắng nữa thì làm như thế nào bạn ?. Mình đã thử điều chỉnh các thông số trong câu lệnh nhưng kq là các khoảng trắng ko bằng nhau.
    xem lại tý giúp mình với nhé. Cám ơn !
    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

  7. #1266
    Tham gia
    08-06-2010
    Bài viết
    62
    Like
    8
    Thanked 12 Times in 11 Posts
    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)

  8. #1267
    Tham gia
    01-02-2008
    Bài viết
    59
    Like
    0
    Thanked 12 Times in 12 Posts
    Quote Được gửi bởi Character View Post
    Gửi bạn Tungvv

    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
    Đã dùng OK, cám ơn Character nhiều nhé !
    *---------------------------------
    To @hoangnnm
    Phần của bạn HD cũng dể hiểu và dùng OK.
    Nói tóm lại mình cần một thủ tục để điều chỉnh độ rộng của Txt in ra phù hợp với hóa đơn bán hàng đã in sẵn. Vậy đã tốt rồi.
    Xin cám ơn các bạn !

  9. #1268
    Tham gia
    24-10-2008
    Bài viết
    126
    Like
    0
    Thanked 4 Times in 4 Posts
    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

  10. #1269
    Tham gia
    18-02-2011
    Bài viết
    2
    Like
    0
    Thanked 0 Times in 0 Posts
    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.

  11. #1270
    Tham gia
    30-06-2010
    Bài viết
    200
    Like
    5
    Thanked 23 Times in 20 Posts
    Quote Được gửi bởi thayphapag View Post
    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.
    Tạo thư mục thì bạn dùng lệnh MKDIR() .
    Để copy file thì dùng lệnh copy , hoặc có rất nhiều cách để copy .
    Bạn nên đọc thêm ở file help của fox9 .

Trang 127 / 229 FirstFirst ... 122124125126127128129130132 ... LastLast

Tags for this Thread

Bookmarks

Quy định

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể trả lời bài viết
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •