1. VisualBasic / Говнокод #8538

    −94

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    ' ==== Пример №1 ====
    strParentAsset = "Parent_Asset_OnetoOneRelationship_Child_NewEarlyStaged"
    strChildAsset = "ChildAssetArray_NewEarlyStaged"
    strArrAssetList = Split(strParentAsset & "," & strChildAsset, ",")
    
    ' ==== Пример №2 ====
    strProjectNames="" & strTODO_Project & "1," & strTODO_Project & "2," & strTODO_Project & "3," & strTODO_Project & "4," & strTODO_Project & "5," & strTODO_Project & "6," & strTODO_Project & "7," & strTODO_Project & "8," & strTODO_Project & "9," & strTODO_Project & "10," & strTODO_Project & "11," & strTODO_Project & "12," & strTODO_Project & "13," & strTODO_Project & "14," & strTODO_Project & "15," & strTODO_Project & "16," & strTODO_Project & "17," & strTODO_Project & "18," & strTODO_Project & "19," & strTODO_Project & "20," & strTODO_Project & "21," & strATG_TODO_PROJECT22
    strArrProjectNames= Split(strProjectNames,",")
    
    ' ==== Пример №3 ====
    Dim strWeekday
    ...
    ReDim strWeekday(7)
    strWeekday(1)= "Sun":strWeekday(2)= "Mon":strWeekday(3)= "Tue":strWeekday(4)= "Wed":strWeekday(5)= "Thu":strWeekday(6)= "Fri":strWeekday(7)= "Sat"

    Примеры создания массивов из QTP-проекта, написанного индусами

    Запостил: Lurker, 16 Ноября 2011

    Комментарии (4) RSS

    • н)B:D)I,K,B?P)Q!B!JL(T?V)Q"A"U,R(J(Y,O:G )H"I.RN!N P!H"G B T.H)K:W(N$A J O$A:L!V,S(Q"A.O)J$O?L,U(RO(Z"X"Q X(X:G,C$V"J!I:D(F$P)D,E.F(L N,IF$P!O?L!S M:E(S G?U.Z,A!E!K J M D?R,R?V)W,LHD(B(W)G)U,T.X,H N"D)KI?Y(D,K:A:O"H P)H$A?R?D J$V,C"J?M)X!H)D M!S$X"A.W N.Z(A.V!P.D:C$D.N:F!G)M?Z,Y:L)F)Q(T.G(Q, N.W"H)C,H Y!E(D$W:G:SW X UR.GH,C!D$P H(M!C?P!N$F?L$N:V:Q.O.BC(G!W)S Q!W?C$P$S,K(JS?I:M)X?T$O(B(B"C)IM(L,V!E Z O"K?K?Q(B"AG)P?M W!X:B"B:I,X.L:L!ID?S(J!Y!O,C.G.W?D(T S.K$VN$N.V"OW(Q?Z)A(Z?P?K"C.N?TL K?JC:P!Q,L U(Y.F)M(D Y"L"N)OD$W:G!R,P,B(R N!JA(Q,U(B,C?D)H!U?T(E)S"H!A!Q:T)E,J$H(E $I!R)K:R.KX"EL.G?JDZ$R$Z!M)X$T)O)C.A(G.X "AG:R,Y:L?RL!X(VA.SN$O"K$I,J(N?L(GF.T?F. L"P!Y.C?F(P)S$M!S$Z!I(Z$M"I"M$A!Y.Z"XJ!F $F.G:I?LY"R,R Q"S:B!Z:P(G X:IEI?I:Z!Z.R"M.F?U?R(R R.E"K(W,P"R Y,R M)L,AG(H!Q,N:Z$M,P:R.W:I"AP$M(A:H"DV"S!M $D(Q$X!I:I H?L"G"WA W)H)D)N$J?A?AJU.I$I?D$O"R,G:B G"A?K!C Z H?O.W,D,W(I,H!J)I!BD"EQ,B:A:I)G,Q:LВTYRX KAKDVWHEWAXZWNSFYDXNRIBVJDRIFMQIDEBIYDGT CKQUPLMCQALEUYHSNPOUWCXBMCXEMMEQLYTRLHSF EZYWQRCCMQSRYWHLCCUONCYPAXOQMFPWAZCAFOBZ UNULVVMIJZEYZXJSCJAFWLUHZPLZPWZQQQFFDELR CTJSRINAWBOIOUSWLVYNUBZWGHJJFERHPQLPLQPU JVKONKELRAUNDVGKKXAJRFMPROCQKFYAJSNETJWQ MLXWQULDZQWDAZN
      Ответить
    • А что такое QTP?
      Ответить
      • Похоже, что речь об этом:
        https://ru.wikipedia.org/wiki/HP_QuickTest_Professional

        Его, кстати, переименовали:
        https://en.wikipedia.org/wiki/Micro_Focus_Unified_Functional_Testing

        Там как раз визуальный Барсик — основной язык программирования.
        Ответить
        • лол) кто-то до сих пор пишет на VBS

          Кстати, а это тоькьо для веба, или для десктопа тоже?
          Пушо если только для веба, то чому не силениум с пиздончиком?
          Ответить

    Добавить комментарий