- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我想从文本文件中获取一些值(数据库名称、用户名、密码),我找到了一种方法,但不确定这是否是最好的方法,导致密码返回时带有某种“制表符” "最后,这是正确的方法还是有其他更简单的方法?
这是我的文本文件:
javax.persistence.jdbc.url=jdbc:mysql://address=(protocol=tcp)(host=127.0.0.1)
(port=3306)/A_DBNAME
javax.persistence.jdbc.user=A_USER
javax.persistence.jdbc.password=A_PASSWORD
这是我的代码:
function StrSplit(Text: String; Separator: String): TArrayOfString;
var
i, p: Integer;
Dest: TArrayOfString;
begin
i := 0;
repeat
SetArrayLength(Dest, i+1);
p := Pos(Separator,Text);
if p > 0 then begin
Dest[i] := Copy(Text, 1, p-1);
Text := Copy(Text, p + Length(Separator), Length(Text));
i := i + 1;
end else begin
Dest[i] := Text;
Text := '';
end;
until Length(Text)=0;
Result := Dest
end;
procedure InitializeWizard;
var
file : AnsiString;
dbName, pass, user : TArrayOfString;
begin
LoadStringFromFile( ExpandConstant('{src}\jdbcfile.txt'), file);
user := StrSplit(file, 'javax.persistence.jdbc.user=');
user := StrSplit(user[1],'javax.persistence.jdbc.password=')
MsgBox('User: '+user[0],mbInformation,MB_OK);
pass := StrSplit(file,'javax.persistence.jdbc.password=');
MsgBox('Pass: '+pass[1],mbInformation,MB_OK);
dbName := StrSplit(file, ')/');
dbName := StrSplit(dbName[1],'javax.persistence.jdbc.user=');
MsgBox('dbName: '+dbName[0],mbInformation,MB_OK);
end;
最佳答案
Imo,尝试同时解析整个文件结构 (key=value
) 和单个键值 (.url
) 在概念上是错误的。此外,您依赖文件中的特定键顺序,这也是错误的。
.url
键具有类似路径的结构,您可以“滥用”ExtractFileName
function .function GetKeyValue(Lines: TStrings; Key: string): string;
var
I, P: Integer;
begin
for I := 0 to Lines.Count - 1 do
begin
P := Pos('=', Lines[I]);
if (P > 0) and (CompareText(Trim(Copy(Lines[I], 1, P - 1)), Key) = 0) then
begin
Result := Trim(Copy(Lines[I], P + 1, Length(Lines[I]) - P));
Exit;
end;
end;
{ Implicitly returns an empty string, if the key does not exist. }
{ Alternatively you can also throw an exception by using RaiseException function, }
{ or return some default value [by adding an additional parameter to this function]. }
end;
procedure InitializeWizard;
var
Lines: TStringList;
DbName, User, Password: string;
begin
Lines := TStringList.Create;
Lines.LoadFromFile(ExpandConstant('{src}\jdbcfile.txt'));
DbName := ExtractFileName(GetKeyValue(Lines, 'javax.persistence.jdbc.url'));
User := GetKeyValue(Lines, 'javax.persistence.jdbc.user');
Password := GetKeyValue(Lines, 'javax.persistence.jdbc.password');
Lines.Free;
{ ... }
end;
关于inno-setup - 从 Inno Setup 中的 key=value 文本文件(没有部分)获取值?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/50882590/
查看“mysqldump -d”并看到一个键是 KEY,而不是“PRIMARY KEY”或“FOREIGN KEY” 什么是关键? 示例: CREATE TABLE IF NOT EXISTS `TA
在我开始使用 Python 的过程中尝试找出最佳编码实践。我用 Pandas 写了一个 csv 到数据框阅读器。它使用格式: dataframe = read_csv(csv_input, useco
在 Flutter 中,用一个例子可以清楚地解释什么? 我的困惑是关于 key,如下面的代码所示。 MyHomepage({Key key, this.title}) : super(key: key
我在我的 Android 应用程序中使用 GCM。要使用 GCM 服务,我们需要创建 Google API key 。因此,我为 android、服务器和浏览器 key 创建了 API key 。似乎
我想在 azure key 保管库中创建一个 secret ,该 key 将具有多个 key (例如 JSON)。 例如- { "storageAccountKey":"XXXXX", "Co
尝试通过带有 encodeforURL() 的 url 发送 key 时,我不断收到错误消息和 decodefromUrl() .代码示例如下。 这是我的入口页面: key = generateSec
是否有检查雪花变体字段中是否存在键的函数? 最佳答案 您可以使用 IS_NULL_VALUE 来查看 key 是否存在。如果键不存在,则结果将为 NULL。如果键存在,如果值为 JSON null,则
我正在尝试运行此命令: sudo apt-key adv --keyserver keys.gnupg.net --recv-keys 1C4CBDCDCD2EFD2A 但我收到一个错误: Execu
我有一个 csv 文件,我正在尝试对 row[3] 进行计数,然后将其与 row[0] 连接 row[0] row[3] 'A01' 'a' 'B02'
如何编写具有这种形式的函数: A(key, B(key, C(key, ValFactory(key)))) 其中 A、B 和 C 具有此签名: TResult GetOrAdd(string key
审查 this method我很好奇为什么它使用 Object.keys(this).map(key => (this as any)[key])? 只调用 Object.keys(this).ind
我有一个奇怪的情况。我有一个字典,self.containing_dict。使用调试器,我看到了字典的内容,并且可以看到 self 是其中的一个键。但是看看这个: >>> self in self.c
我需要在我的 Google Apps 脚本中使用 RSA-SHA256 和公钥签署消息。 我正在尝试使用 Utilities.computeRsaSha256Signature(value, key)
我是 React 的初学者开发人员,几天前我看到了一些我不理解的有趣语法。 View组件上有{...{key}},我会写成 key={key} ,它完全一样吗?你有链接或解释吗? render()
代理 key 、合成 key 和人工 key 之间有什么区别吗? 我不清楚确切的区别。 最佳答案 代理键、合成键和人工键是同义词。技术关键是另一个。它们都表示“没有商业意义的主键”。它们不同于具有超出
问题陈述:在 Web/控制台 C# 应用程序中以编程方式检索并使用存储在 Azure Key Vault 中的敏感值(例如数据库连接字符串)。 据我所知,您可以在 AAD 中注册应用,并使用其客户端
问题陈述:在 Web/控制台 C# 应用程序中以编程方式检索并使用存储在 Azure Key Vault 中的敏感值(例如数据库连接字符串)。 据我所知,您可以在 AAD 中注册应用,并使用其客户端
我正在寻找 Perl 警告的解决方案 “引用键是实验性的” 我从这样的代码中得到这个: foreach my $f (keys($normal{$nuc}{$e})) {#x, y, and z 我在
我正在为 HSM 实现 JCE 提供程序 JCE中有没有机制指定 key 生成类型例如: session key 或永久 key KeyGenerator keygen = KeyGener
我在 Facebook 上创建了一个应用程序。我已经正确添加了 keyhash 并且应用程序运行良好但是当我今天来并尝试再次运行它时它给了我这个错误。 这已经是第二次了。 Previsouly 当我收
我是一名优秀的程序员,十分优秀!