Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. jtm2020hyo

    What is wrong with this code?

    Thanks for reply, this work but how should I use "Function" and "Sub"?
  2. jtm2020hyo

    What is wrong with this code?

    I tried: Dim Tag_List Function DefineTag(Tag_List) Select Case Tag_List Case "NAME" A1 = [B] Case Else A1 = "" End Select End Function DefineTag([A]) RETURN = A1 ... but do nothing, anyone could help me here?, not sure what is wrong here. [A]=AAA [B]=NAME WHEN B is a string "NAME"...
  3. jtm2020hyo

    VBA script to split 0D, 1D, and 2D arrays

    I am not too good with VBA, I did not found any error in the vba, should work, but I still have same error when I use 0D and 1D arrays.
  4. jtm2020hyo

    VBA script to split 0D, 1D, and 2D arrays

    Thanks for the help, until I understand, this VBA script only manages 2D arrays, but contain code to manage 0D and 1D arrays management... ... Then the solution is change "cellValues As Variant" to anything that accept 0D, 1D, 2D arrays, how do this change?
  5. jtm2020hyo

    VBA script to split 0D, 1D, and 2D arrays

    =textsplit does not appear in my MS Office 2021 version. What should I do?
  6. jtm2020hyo

    VBA script to split 0D, 1D, and 2D arrays

    ...' Redim the ResultArray to the appropriate size Dim ResultArray() As Variant ReDim ResultArray(1 To (UBound(cellValues, 1) * (MaxLengths(2) + 1)), 1 To (UBound(cellValues, 2) * (MaxLengths(1) + 1))) ' Populate the ResultArray with the split values ResultArray =...
  7. jtm2020hyo

    Convert Formula to String (in solvable)

    AutoCAD have a PLOT command, this command put the TAG-OBJECT than contain the VBS with "RETURN = ABC-123" to pdf, and I am not sure why happen this issue only here. Also Cstr(ABC-123) should work or maybe I did anything wrong. Any suggestion? Or is there another command to convert a Formula to...
  8. jtm2020hyo

    Convert Formula to String (in solvable)

    I tried every character in : https://www.vbsedit.com/html/c60e2712-20e6-40f2-8fe2-cfb74ca6bca1.asp just 28, 29, (I already do not remember if 30) works, other character convert "ABC-123" in number Integer and leave "0.000" probably "ABC-123" mean variable "ABC" minus (-) value "123" edit...
  9. jtm2020hyo

    Convert Formula to String (in solvable)

    I found an in solvable issue, I use AutoCAD MEP and this support VBS v3.0 if I remember correctly, everything work good but ... ... When I try convert create a tag for my object like "ABC-123", VBS read this like a formula, and I already tried everything in the internet to convert this...
  10. jtm2020hyo

    Push element to Array

    I found a function ().push in JavaScript to add elements to array. Is there any equivalent in VBScript to add elements to Array too simple like ().push?
  11. jtm2020hyo

    Suggest books

    Thanks a lot to everyone
  12. jtm2020hyo

    Suggest books

    Thanks a lot. I will check it. Actually I use VBS/VBA in AutoCAD MEP, and not sure if there exist any VBS book for this task(related to AutoCAD and Mechanical, Electrical, Plumbing design). ... I am interested mainly in Arrays, anything like combine 1D, 2D, 3D arrays, with those arrays do...
  13. jtm2020hyo

    Convert a String to 2D array and Operate their values

    ...using Split "," For Axis-X and ";" for Axis-Y and not sure that more do. how can I do arithmetic operations 2DArray like this : ((2DArray(0)(0)*2DArray(0)(1))/2DArray(0)(2))+((2DArray(1)(0)*2DArray(1)(1))/2DArray(1)(2))+ ((2DArray(3)(0)*2DArray(3)(1))/2DArray(3)(2))+ ... etc where: if...
  14. jtm2020hyo

    Suggest books

    Which ebook/book pdf could I buy (or read for free if possible) to learn advanced VBS (or VBA if there is not VBS ebooks/books)
  15. jtm2020hyo

    Count Repeated/Unique Strings/Values

    Thank a lot to everyone. I finally solved this Was necessary modify a bit to be used in AutoCAD MEP, there the software always request finish with a "RESULT =". Also I received s bit of help here...
  16. jtm2020hyo

    Count Repeated/Unique Strings/Values

    Works perfectly, thanks a lot. ... but how could I output the string concatenation of the array that contain the unique/repeated value of all index with the shape of "variable(n)(2)" in my arrSplitStrings2 array 2D? something like this: ArrSource = "A1,B2,C1; A2,B2,C1; A3,B2,C2...
  17. jtm2020hyo

    Count Repeated/Unique Strings/Values

    thanks for the fast reply. what I was searching is a 2D array like this: https://forums.autodesk.com/t5/vba/count-repeated-unique-strings-values/m-p/10851492#M105864 here is the VBA code used: Sub SplitArrSource() ArrSource = "A1,B2,C1; A2,B2,C1; A3,B2,C2; A4,B2,C2;A5,B2,C3; A6,B2,C4...
  18. jtm2020hyo

    Count Repeated/Unique Strings/Values

    ...if possible or if just can be possible create variable manually writing to have all values indexed: https://stackoverflow.com/questions/53660929/how-to-dynamically-name-vbscript-variables-inside-for-loop 'hypothetical for i = i to some_number dim "prefix" & i "prefix" & i = 2 * i next
  19. jtm2020hyo

    Count Repeated/Unique Strings/Values

    Awesome code, works perfectly. I tried edit de code to replace the C1,C2,C3,etc... to use any value but your code is very advanced for me. I would greatly appreciate your help if help me to edit the code to count and list unique values in the third index after each semicolon (";")?

Part and Inventory Search

Back
Top