从一长串文本中提取数量（数字）

Question

我遇到的问题是这个。 我拉取的数据以一种非常不方便的方式添加信息。 当我试图隔离和提取字符串中的某个文本时，它变得非常复杂。 我希望能够提取产品的数量以仅显示数值，没有字母文本或字符。

字符串是：

[{"orderItemId":609507407,"lineItemKey":"1509870501993","sku":"SKU-111111","name":"公司产品 - NA / 1-2 个工作日内发货","imageUrl":" https://FAKEADDRESS.com/ ","weight":{"value":352.0,"units":"ounces","WeightUnits":1},"quantity":1,"unitPrice":1599.0,"taxAmount ":null,"shippingAmount":null,"warehouseLocation":null,"options":[],"productId":30236912,"fulfillmentSku":null,"adjustment":false,"upc":"","createDate ":"2018-11-03T20:20:42.247","修改日期":"2018-11-03T20:20:42.247"}]

使用 (LEFT(RIGHT(N2:N,LEN(N2:N)-FIND("quantity",N2:N,1)-9),3)) 我能够找到数量的正确位置，但是, 如果数值（数量）是 2 或 3 位数字，它将保留后面的任何文本/数字。

即 "quantity":123 将显示 123 但 "quantity":1," 将显示 1,"

（左（右（N2：N，LEN（N2：N）-查找（“数量”，N2：N，1）-9），3））

本质上，我只想让公式在单元格中显示一个数值（数量）。 没有其他的。

Answer 1

对我来说，这看起来像 JSON，甚至正则表达式对于单个数量的整数也可能是矫枉过正。

Dim str As String, el As String, q As Long

str = "[{""orderItemId"":609507407, ... ,""quantity"":1,""unitPrice"":1599.0, ... ,""modifyDate"":""2018-11-03T20:20:42.247""}]"
el = """quantity"":"

q = val(Mid(str, InStr(1, str, el) + Len(el)))
Debug.Print q